repeat.txt

来自「pl0 扩展功能 包括++ -- 注释 for语句 repeat until语句」· 文本 代码 · 共 12 行

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