Viết chương trình nhập vào máy tính 2 số thực x,y khác nhau từ bàn phím. In 2 số đó ra màn hình theo thứ tự giảm dần 28/07/2021 Bởi Natalia Viết chương trình nhập vào máy tính 2 số thực x,y khác nhau từ bàn phím. In 2 số đó ra màn hình theo thứ tự giảm dần
uses crt; var x,y:real; begin cclrscr; readln(x,y); if x<y then write(y,’ ‘,x) else write(x,’ ‘,y); readln end. Bình luận
Program bali uses crt var a,b : integer begin write ( nhập số nguyên a =’ ) ; readln (a) write ( nhập số nguyên b =’) ; readln ( b ) if a<b then writeln ( a , ‘_’ , b ) else write ( b, ‘_’ , a ) readln end Xin 5 * Bình luận
uses crt;
var x,y:real;
begin
cclrscr;
readln(x,y);
if x<y then write(y,’ ‘,x) else write(x,’ ‘,y);
readln
end.
Program bali
uses crt
var a,b : integer
begin
write ( nhập số nguyên a =’ ) ; readln (a)
write ( nhập số nguyên b =’) ; readln ( b )
if a<b then writeln ( a , ‘_’ , b ) else
write ( b, ‘_’ , a )
readln
end
Xin 5 *