网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
freepascal吧 关注：250贴子：914
  • 6回复贴，共1页

求一个程序~

只看楼主收藏回复

要求编写一个程序，可以求出1+2+3+……+100，用到if循环，然后还有一个程序是1到100中所有的偶数和，也是用循环（循环类型不限），求牛人来啊~~
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页
          发表回复
          发贴请遵守贴吧协议及“七条底线”贴吧投诉
          内  容:
            查看全部
          发 表
          保存至快速回贴