20161206 求1+2+3+。。。+100的和并输出。

题目：

    求1+2+3+。。。+100的和并输出。

 

代码：

 1 program work20161206;
 2 var
 3   i,s:integer;
 4 BEGIN
 5   s:=0;
 6   for i:= 1 to 100 do
 7   begin
 8     s:=s+i;
 9   end;
10   writeln(s);
11 END.

 

老师的答案：

 

posted @ 2016-12-06 17:07  橙煦猿  阅读(186)  评论(0)  编辑  收藏  举报