你好，关于var i:longint;的问题

Question

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程序

Answer 1

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.

Answer 2

var a:longint;
begin
a:=6;
end.