viết chương trình nhập vào 2 số nguyên rồi in ra màn hình theo thứ tự tăng dần pascal

0 bình luận về “viết chương trình nhập vào 2 số nguyên rồi in ra màn hình theo thứ tự tăng dần pascal”

1. Program bt;

   Uses Crt;

   Var a,b,c:integer;

   Begin

   Clrscr;

   Write(‘Nhap so thu nhat: ‘);Readln(a);

   Write(‘Nhap so thu hai: ‘);Readln(b);

   If a<b then write(‘Hai so sau khi sap xep la: ‘,a,’ ‘,b) else write(‘Hai so sau khi sap xep la: ‘,b,’ ‘,a);

   Readln;

   End. 

   Bình luận

2. uses crt;
   var x,y:longint;
   begin
         clrscr;
         write(‘Nhap hai so: ‘); readln(x,y);
         if x>y then write(‘Day tang dan: ‘,y,’ ‘,x)
         else if y>x then write(‘Day tang dan: ‘,x,’ ‘,y)
         else write(x,’=’,y,’ nen khong sap xep day tang dan duoc’);
         readln;
   end.

   Bình luận