Question

Xuất số a, b theo thứ tự tăng dần

CHƯƠNG TRÌNH PASCAL

MỌI NGƯỜI GIÚP MK VỚI Ạ MAI MÌNH KIỂM TRA MỘT TIẾT RÙI !!!!

Answer 1

uses crt;

Var a,b: Real;

begin

Clrscr ;

Write ('Nhap a: '); readln (a);

Write ('Nhap b: '); readln (b);

If a < b then write ('Sap xep theo thu tu tang dan: ',a,' ',b);

If a > b then write ('Sap xep theo thu tu tang dan: ',b,' ',a);

if a = b then write ('Khong the thuc hien yeu cau!');

readln;

end.

Answer 2

uses crt;

var a,b:integer;

begin

clrscr;

write('nhap a='); readln(a);

write('nhap b='); readln(b);

if a<b then writeln(a,' ',b);

if a>b then writeln(b,' ',a);

if a=b then writeln('vui long nhap hai so khac nhau');

readln;

end.

Answer 3

program andanh;

uses crt;

var a,b: integer;

begin

write('Nhap a: ');readln(a);

write('Nhap b: ');readln(b);

writeln('2 so theo thu tu tang dan:');

if a < b then write(a,' ',b)

else if a > b then write(b,' ',a)

else if a = b then write('2 so bang nhau');

readln

end.