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