Viết chương trình Nhập 2 số nguyên a,b rồi hoán đổi 2 số đó khi a>b rồi in ra màn hình 15/07/2021 Bởi Mary Viết chương trình Nhập 2 số nguyên a,b rồi hoán đổi 2 số đó khi a>b rồi in ra màn hình
uses crt; var a,b,td: integer; begin clrscr; write (‘nhap a: ‘); readln (a); write (‘nhap b: ‘); readln (b); if a>b then begin td:=a; a:=b; b:=td; end; writeln (‘gia tri cua a: ‘,a); writeln (‘gia tri cua b: ‘,b); readln; end. Bình luận
uses crt;
var a,b,td: integer;
begin
clrscr;
write (‘nhap a: ‘); readln (a);
write (‘nhap b: ‘); readln (b);
if a>b then
begin
td:=a;
a:=b;
b:=td;
end;
writeln (‘gia tri cua a: ‘,a);
writeln (‘gia tri cua b: ‘,b);
readln;
end.