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 @   橙煦猿  阅读(189)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示