03.txt

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

var sum,a,b;
procedure p;
  begin
    sum:=0;
    for a:=1 to b do
      sum+=a;
  end;

begin
  read(b);
  while b<>0 do
    begin
      call p;
      write(sum);
      read(b);
    end
end.