for.txt

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

var i,sum;
begin 
   sum:=0;
   for(i:=0;i<10;i++)
    sum:=sum+i;
   write(sum)
end.