例题:使用while循环语句,编写程序求100以内的奇数的和。
程序代码如下;
program cql(input,output);
var i:integer;s:real;
begin
s:=0;
i:=1;
while i<=99 do
begin
s:=s+i;
i:=i+2;
end;
write('s=',s:8:2);
end.
最终结果为:2500.00
|
||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||
例题:使用while循环语句,编写程序求100以内的奇数的和。
程序代码如下;
program cql(input,output);
var i:integer;s:real;
begin
s:=0;
i:=1;
while i<=99 do
begin
s:=s+i;
i:=i+2;
end;
write('s=',s:8:2);
end.
最终结果为:2500.00
参加全国第二期信息学奥赛辅导老师培训班学习体会 东莞中学...
信息学奥赛培训总结 时间:2008-9-19至9-21。 地点:龙源学校 主讲...
辅导信息学奥赛的经验和体会 近两年来,我校在全国青少年信息...
PASCAL程序基础 主要讲述内容为: 一、 PASCAL语言基础知识 二、...
异或是什么意思 问题: 这个要怎么理解啊?我不是明白。 2 Xor...
free pascal和turbo pascal的区别 虽然Free Pascal尽量设计得和Turbo Pasc...