Question

Viết chương trình dạng đầy đủ nhập 3 số Thực a, b, c từ bàn phím sau đó sắp xếp và in ra màn hình theo thứ tự tăng dần hoặc giảm dần

~giúp em với ạ~

Answer 1

program sap_xep; var a,b,c,t:integer; Begin write(' nhap a ' ); readln(a); write(' nhap b ' ); readln(b); write(' nhap c ' ); readln(c); if a>b then begin t:=a; a:=b; b:=t; end; if b>c then begin t:=b; b:=c; c:=t; end; if a>b then begin t:=a; a:=b; b:=t; end; writeln(' day duoc sap xep'); writeln(a:5,b:5,c:5); readln End.