05.txt

来自「C++扩展pl0编译」· 文本 代码 · 共 10 行

var a,sum;
begin
  sum:=0;
  a:=1;
  repeat
    sum+=a;
    a++;
  until a>100;
  write(sum);
end.