sum.pas

来自「pascal的编译器 交作业没问题」· PAS 代码 · 共 12 行

//求1+2+3+...+x.

read x;        
sum:=0;
i:=1/4*4;
repeat 
  sum:=sum+i;
  write i;
  i:=i+1
until x<i;  
write sum