单数相加 — 编程爱好者社区

您所在位置：社区首页 — PASCAL语言讨论区 — 单数相加

主题：单数相加

裴晚辰 [专家分：0] 发布于 2005-04-16 09:19:00

在0--100里的单数相加这个程序怎么写?[em12][em12][em18][em19](我不太会,)[em20]
在您留下程序时,请把步骤说一下[em8][em8]好吗?

11 楼

裴晚辰 [专家分：0] 发布于 2005-04-19 19:03:00

[em2][em2]谢谢啊

12 楼

xuzhenyi [专家分：850] 发布于 2005-04-22 18:50:00

begin
writeln('2500');
end.

13 楼

xuzhenyi [专家分：850] 发布于 2005-04-24 16:18:00

我的不快吗

14 楼

裴晚辰 [专家分：0] 发布于 2005-04-25 18:30:00

[em2][em2][em1][em1][em1]快的不能再快

15 楼

faintzw [专家分：2660] 发布于 2005-04-25 19:09:00

begin
end.

我这个最快……结果因为太快超过光速而穿越时空了

16 楼

裴晚辰 [专家分：0] 发布于 2005-04-28 12:35:00

呵呵,[em12][em12]你这个程序怎样运行?

17 楼

jinjin8888 [专家分：0] 发布于 2005-04-30 23:34:00

var
i,t:integer;
begin
  t=0;
  for i=1 to 100 do
     begin
        t=i+t;
     end;
end.

18 楼

泡泡糖 [专家分：230] 发布于 2005-05-03 18:02:00

var i,s:integer;
begin
for i:=1 to 100 do if odd(i) then s:=s+i;
writeln(s);
end.

您尚未登录，请登录后再回复。点此登录或注册