主题：求1+4+7+……+298的和！（急救）
超级小刘唱
[专家分：0] 发布于 2005-03-11 15:16:00
求出1+4+7+10+……298的和！谁会啊？快教教偶！！！！#：-）
回复列表 （共25个回复）
沙发
zenia [专家分：20] 发布于 2005-03-11 15:28:00
不好意思哎,我也不会阿
板凳
超级小刘唱 [专家分：0] 发布于 2005-03-11 16:07:00
不知道98要烂发！！！！
3 楼
FancyMouse [专家分：13680] 发布于 2005-03-11 17:52:00
这样，告诉你数学方法和编程方法
数学：利用等差数列求和公式S=(a1+an)*n/2得到结果14950
编程：1
int sum()
{
int a,b;
b=0;
for(a=1,a<=298,a=a+3)
b=b+a;
return b;
}
方法2
int sum()
{
return 14950;
}
4 楼
超级小刘唱 [专家分：0] 发布于 2005-03-11 19:57:00
3克油！
5 楼
woohaha [专家分：120] 发布于 2005-03-16 15:03:00
var i,n:integer;
begin
i:=1;
repeat
n:=n+i;
i:=i+3;
until i>=298;
writeln(n);
end.
6 楼
xuzhenyi [专家分：850] 发布于 2005-03-18 21:53:00
var a,b:integer;
begin
a:=1;
while a<=298 do
begin
b:=b+a;
a:=a+3;
end;
writeln(b);
end.
7 楼
tanchenggang [专家分：0] 发布于 2005-03-19 19:50:00
我是个菜鸟，但我也试试吧！
program ex_1;
var
s:integer;
i:char;
begin
writeln('strating!');
s:=0
for 1 to 298 do
s:=(s-1)/3;
end;
end.
也许这个程序是错的，希望各为高手赐教~~~~~~~~~~
8 楼
mdjqdh [专家分：140] 发布于 2005-04-03 11:51:00
for 1 to 298 do
楼上的 你这个语句就是错的
9 楼
mdjqdh [专家分：140] 发布于 2005-04-03 11:54:00
var a,b:integer;
begin
repeat
begin
a:=a+3;
b:=b+a;
end;
until a=298;
writeln(b);
end.
10 楼
hs3180 [专家分：530] 发布于 2005-04-05 09:21:00
var
i,sum:longint;
begin
sum:=0;
for i:=0 to 99 do
sum:=sum+i*3+1;
writeln(sum);
end.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 求1+4+7+……+298的和！（急救）