例题：使用while语句编写程序，求出100以内的偶数的和。
程序代码如下所示：
program cql(input,output);
var i:integer;s:real;
begin
s:=0;
i:=2;
while i<=100 do
begin
s:=s+i;
i:=i+2;
end;
write('s=',s:8:2);
end.
最后的结果是：2550.00
| 对联 ·故事 ·史海钩沉 ·人物档案 ·地方风俗 ·谚语大全 ·讽刺与幽默 | · 赚钱 · 法律 · 在线教研 · 会员中心 · 心理测试 · 魔鬼词典 · 顺口溜 |
|