主题：求1+4+7+……+298的和！（急救）
超级小刘唱
[专家分：0] 发布于 2005-03-11 15:16:00
求出1+4+7+10+……298的和！谁会啊？快教教偶！！！！#：-）
回复列表 （共25个回复）
11 楼
yuxiaonsu [专家分：90] 发布于 2005-04-05 20:47:00
var i,t:integer;
begin
i:=1;
t:=0;
repeat
t:=t+i;
i:=i+3;
until i>=300;
end.
//最爱短小！
12 楼
sunnight [专家分：0] 发布于 2005-04-06 17:39:00
var
s,n:integer;
begin
s:=0;n:=0;
while (s<=298) do
begin
n:=n+3;
s:=s+n;
end;
end.
13 楼
给她买DOVE [专家分：0] 发布于 2005-04-06 23:35:00
偶也是菜鸟
program [em1];
var i,s,n:integer;
begin
s:=0;
for i:=1 to 298 do
begin
n:=i-1;
if (n mod 3=0)
then s:=s+1;
end;
writeln(s:8);
end.
14 楼
yuxiaonsu [专家分：90] 发布于 2005-04-07 18:23:00
12楼的！是从1开始而不是0！
15 楼
lidifei [专家分：0] 发布于 2005-04-07 19:54:00
program sss;
var a,b:integer;
begin
while a<=298 do
begin
b:=b+a;
a:=a+3;
end;
writeln(b);
end.
16 楼
hbn245 [专家分：0] 发布于 2005-04-08 09:40:00
program dfg (input,output);
var s,i:integer;
begin
s:=1:
for i=1to99 do
begin
s:=s+3:
end
end.
17 楼
26324 [专家分：0] 发布于 2005-04-09 01:00:00
楼上还差一步,
在S:=S+1后加一步:A=:A+S.
当然,还需要在前面加上变量A.
18 楼
26324 [专家分：0] 发布于 2005-04-09 01:02:00
13楼的只是算出了该数列的项数而已.
19 楼
26324 [专家分：0] 发布于 2005-04-09 01:05:00
13楼的应该在"writeln(s:8);"前加上S:(1+298)*S/2.
20 楼
sd5774188 [专家分：260] 发布于 2005-04-09 17:32: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.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 求1+4+7+……+298的和！（急救）