pascal程序怎么输出靠近100的数

更新时间2019-07-11 12:21:48

var
i:longint;
begin
for i:=1 to 100 do
begin
write(i,' ');
if i mod 10=0 then writeln;
end;
end.