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  橙煦猿  阅读(206)  评论(0编辑  收藏  举报