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

Question

havu · Answer

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 *

Kymlien · Answer

uses crt;   var x,y:real;   begin   cclrscr;   readln(x,y);   if x<y then write(y,' ',x) else write(x,' ',y);   readln   end.