example3.txt

来自「PL/0语言编译器」· 文本 代码 · 共 13 行

const c=100;
var a,b;
begin
  a:=0;
  b:=0;
  while b<=c do
    begin
      a:=a+b;
      b:=b+1;
    end;
  write(a)
end.