20161208 求1+5+9+。。。+97的值。

题目：

    求1+5+9+。。。+97的值。（这道题是不容易看出循环了多少次的，所以没必要用计数循环！）

 

代码：

 1 program work20161208;
 2 var
 3   i,s:integer;
 4 BEGIN
 5   i:=1;
 6   s:=0;
 7   while i<=97 do
 8   begin
 9     s:=s+i;
10     i:=i+4;
11   end;
12   writeln(s);
13 END.

 

老师的答案：

 

posted @ 2016-12-08 17:29  橙煦猿  阅读(209)  评论(0)  编辑  收藏  举报