求一个程序~【freepascal吧】_百度贴吧

05月03日漏签0天

freepascal吧关注：250贴子：915

6回复贴，共1页

<返回freepascal吧

求一个程序~

只看楼主收藏回复

要求编写一个程序，可以求出1+2+3+……+100，用到if循环，然后还有一个程序是1到100中所有的偶数和，也是用循环（循环类型不限），求牛人来啊~~

送TA礼物

1楼2012-08-30 22:22回复

55啊啊啊怎么没人啊求大神求大神~

2楼2012-08-31 09:51

这儿有:http://hi.baidu.com/pascalbbs/item/1718f3787483406fef1e53cc

3楼2012-09-10 14:14

收起回复

第二个：
var i,s:longint;
for i:=1 to 100 do if i mod 2=0 then s:=s+i;
writeln(s);
end.

5楼2016-05-08 09:17

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧热议榜

6回复贴，共1页

<返回freepascal吧

发表回复

发贴请遵守贴吧协议及“七条底线”贴吧投诉

内容:

使用签名档查看全部

发表

保存至快速回贴