viết chương trình in ra số lớn hơn trong hai số được nhập từ bàn phím

0 bình luận về “viết chương trình in ra số lớn hơn trong hai số được nhập từ bàn phím”

1. program tim_so_lon_hon;

   uses crt;

   var x,y:real;

   begin

        clrscr;

         write(‘nhap so x’);

         readln(x);

         write(‘nhap so b’);

         readln(b);

         if a<b then writeln(‘so lon hon la:’,b) else writeln(‘so lon hon la:’,a);

         readln;

   end.

   Bình luận

2. program so_lon;

   uses crt;

   var n,m:integer;

   begin

          clrscr;

          write(‘Nhap so thu nhat: ‘);  readln(n);

          write(‘Nhap so thu hai: ‘);  readln(m);

          if m=n then write(‘Hai so bang nhau’)

                 else if n>m then write(‘So thu nhat lon hon’)

                 else write(‘So thu hai lon hon’);

          readln;

   end.

   Bình luận