Tin học paxcan lớp 8

[harder & smarter]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập a,b,c in ra theo thứ tự giảm dần

 

[namnam06]

Nhập a,b,c in ra theo thứ tự giảm dần

Tự làm đến đâu rùi bạn? Thăm khảo CODE sau:
Var a, b, c, p, q, r: longint ;
Begin
Writeln('Day la chuong trinh sap xep a, b, c theo thu tu giam dan.');
Write(' Nhap a, b,c: ');
Readln(a, b, c);
If (a>=b) and (a>=c) then p:=a
Else if (b>=c) and (b>=a) then p:=b
Else p:=c;
If a=p then If b>= c then Begin b:=q; c:=r End
Else Begin c:=q; b:=r End
Else if b=p then.....
Else....
Writeln(' Ba so sau khi xep thu tu giam dan: ', p,q,r);
Readln
End.