var i:longint;beginfor i:=100 to 999 do beginif ((i div 1) < (i div 10 mod 10) < (i mod 10) then write(i);else write(' ');writeln;end;readln;end.哪錯了？Pascal程序
2 回答
MM們
TA貢獻1886條經驗 獲得超2個贊
3個錯：
1.if ((i div 1) < (i div 10 mod 10) < (i mod 10)少半個“）”
2.if ((i div 1) < (i div 10 mod 10) < (i mod 10) then write(i);
由于下一行是else，所以不能有“；”
3.if ((i div 1) < (i div 10 mod 10) < (i mod 10) then write(i);
Pascal里面不能有連續3個條件判斷正誤（如：a>b>c）
應寫為：
var i:longint;
begin
for i:=100 to 999 do begin
if ((i div 1) < (i div 10 mod 10)）and（(i div 10 mod 10)< (i mod 10)） then write(i)
else write(' ');
writeln;
end;
readln;
end.
- 2 回答
- 0 關注
- 405 瀏覽
添加回答
舉報
0/150
提交
取消