主题：拜托
6yangweihua
[专家分：180] 发布于 2005-09-12 20:27:00
输入三个数，A，B，C，输出它们的顺序（从小到大）
回复列表 （共1个回复）
沙发
lzl1403 [专家分：1670] 发布于 2005-09-17 16:41:00
参考一下：
if a>b then
if a>c then begin
write(a,' ');
if b>c
then begin write(b,' ');writeln(c);end
else begin write(c,' ');writeln(b);end
end else writeln(c,' ',a,' ',b)
else
if b>c then begin
write(b,' ');
if a>c
then begin write(a,' ');writeln(c);end
else begin write(c,' ');writeln(a);end
end else writeln(c,' ',b,' ',a)
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 拜托