Viết chương trình Pascal, số sánh 2 số nguyên tùy ý.

0 bình luận về “Viết chương trình Pascal, số sánh 2 số nguyên tùy ý.”

1. var a,b:integer;
   begin
   clrscr;
     write(‘Nhap a,b: ‘); readln(a,b);
       if a>b then write(a,’ lon hon ‘,b)
        else if a<b then write(a,’ nho hon ‘,b)
          else if a=b then write(a,’ bang ‘,b);
   readln;
   end.

   Bình luận

2. uses crt;

   var a,b: integer;

   begin

   clrscr;

   write (‘nhap so thu nhat: ‘);  readln (a);

   write (‘nhap so thu hai: ‘);    readln (b);

   if a>b then writeln (‘a>b’);

   if a<b then writeln (‘a<b’);

   if a=b then writeln (‘a=b’);

   readln;

   end.

   Bình luận