Viết chương trình nhập vào hai số a,b và in ra theo chiều không tăng
By Arianna
Viết chương trình nhập vào hai số a,b và in ra theo chiều không tăng
Uses crt; Var a, b: integer; Begin Clrscr; Write(‘Nhap a = ‘); readln(a); Write(‘Nhap b = ‘); readln(b); If a>b then writeln(b,’ ‘,a) else writeln(a,’ ‘,b); Readln end.
Uses crt;
Var a, b: integer;
Begin
Clrscr;
Write(‘Nhap a = ‘); readln(a);
Write(‘Nhap b = ‘); readln(b);
If a>b then writeln(b,’ ‘,a) else writeln(a,’ ‘,b);
Readln
end.