Quảng cáo
2 câu trả lời 787
Program bt;
Uses Crt;
Var a,b,c:integer;
Begin
Clrscr;
Write(‘Nhap so thu nhat: ‘);Readln(a);
Write(‘Nhap so thu hai: ‘);Readln(b);
If a<b then write(‘Hai so sau khi sap xep la: ‘,a,’ ‘,b) else write(‘Hai so sau khi sap xep la: ‘,b,’ ‘,a);
Readln;
End.
Program bt;
Uses Crt;
Var a,b,c:integer;
Begin
Clrscr;
Write(‘Nhap so thu nhat: ‘);Readln(a);
Write(‘Nhap so thu hai: ‘);Readln(b);
If a<b then write(‘Hai so sau khi sap xep la: ‘,a,’ ‘,b) else write(‘Hai so sau khi sap xep la: ‘,b,’ ‘,a);
Readln;
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45468 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34890 -
Đã trả lời bởi chuyên gia
30706 -
Hỏi từ APP VIETJACK28330
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22490
Gửi báo cáo thành công!
