test2.pl0

来自「pl0的几个小程序 老师给的 很简单 共享下」· PL0 代码 · 共 13 行

var
 i,s;
begin
 i:=1;
 s:=0;
 while i<=100  do
  begin
    s:=s+i;
     i:=i+1
  end;
  write(s)
end.