求1+4+7+……+298的和！（急救）

您所在位置：社区首页 — PASCAL语言讨论区 — 求1+4+7+……+298的和！（急救）

主题：求1+4+7+……+298的和！（急救）

超级小刘唱 [专家分：0] 发布于 2005-03-11 15:16:00

求出1+4+7+10+……298的和！谁会啊？快教教偶！！！！#：-）

21 楼

sd5774188 [专家分：260] 发布于 2005-04-09 17:33:00

program yb(input,output);
var a,b:integer;
begin
a:=0;
b:=-2;
while b<=295 do
begin
b:=b+3;
a:=a+b;
end;
write('a=',a);
end.

22 楼

hbn245 [专家分：0] 发布于 2005-04-09 17:43:00

program (input,output);
var i,s:integer;
begain
       s:=1;
       fori=1to99
       s:=s+3
       wwrite(s)
end.

23 楼

xuzhenyi [专家分：850] 发布于 2005-04-11 21:34:00

这道题目有讨论价值吗

24 楼

wzzll [专家分：60] 发布于 2005-04-12 16:28:00

22楼的写错了！！！
是“WRITE"不是"WWRITE"!!
基本的语句都不知道！！真够菜鸟的

25 楼

smallboat [专家分：60] 发布于 2005-04-19 23:04:00

program aaa;
  var s,i,x:integer;
begin
  i:=1; s:=0;
  repeat
    inc(s,i);
    inc(i,3);
  until i=248;
  writeln(s);
end.

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