05.txt

来自「编译原理的课程设计,对PL0进行扩充完成内容如下:1. 基本内容： （1）增加」· 文本 代码 · 共 10 行

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