VCT nhập vào 1 số có hai chữ số và đọc số đó vd: 15 muoi lam

0 bình luận về “VCT nhập vào 1 số có hai chữ số và đọc số đó vd: 15 muoi lam”

1. uses crt;

   var n: integer;

      a,b: string;

   begin

   clrscr;

   write (‘nhap so co hai chu so: ‘);  readln (n);

   if n div 10=1 then a:=’muoi’;

   if n div 10=2 then a:=’hai muoi’;

   if n div 10=3 then a:=’ba muoi’;

   if n div 10=4 then a:=’bon muoi’;

   if n div 10=5 then a:=’nam muoi’;

   if n div 10=6 then a:=’sau muoi’;

   if n div 10=7 then a:=’bay muoi’;

   if n div 10=8 then a:=’tam muoi’;

   if n div 10=9 then a:=’chin muoi’;

   if n mod 10=0 b:=”;

   if n mod 10=1 b:=’mot’;

   if n mod 10=2 b:=’hai’;

   if n mod 10=3 b:=’ba’;

   if n mod 10=4 b:=’bon’;

   if n mod 10=5 b:=’nam’;

   if n mod 10=6 b:=’sau’;

   if n mod 10=7 b:=’bay’;

   if n mod 10=8 b:=’tam’;

   if n mod 10=9 b:=’chin’;

   writeln (a,’  ‘,b);

   readln;

   end.

   Bình luận

2. uses crt;
   var n:longint;
   begin
   clrscr;
      write(‘Nhap vao 1 so co 2 chu so: ‘);readln(n);
      if n div 10=1 then write(‘muoi ‘);
      if n div 10=2 then write(‘hai muoi ‘);
      if n div 10=3 then write(‘ba muoi ‘);
      if n div 10=4 then write(‘bon muoi ‘);
      if n div 10=5 then write(‘nam muoi ‘);
      if n div 10=6 then write(‘sau muoi ‘);
      if n div 10=7 then write(‘bay muoi ‘);
      if n div 10=8 then write(‘tam muoi ‘);
      if n div 10=9 then write(‘chin muoi ‘);
      if n mod 10=1 then write(‘mot ‘);
      if n mod 10=2 then write(‘hai ‘);
      if n mod 10=3 then write(‘ba ‘);
      if n mod 10=4 then write(‘bon’);
      if n mod 10=5 then write(‘lam ‘);
      if n mod 10=6 then write(‘sau ‘);
      if n mod 10=7 then write(‘bay ‘);
      if n mod 10=8 then write(‘tam ‘);
      if n mod 10=9 then write(‘chin ‘);
   readln
   end.

   Bình luận