打印1+4+7+…+298=及计算出其值。

前提是用Pascal程序编的,LZ是吗?
program x021;
var i,k,d,s:integer;
begin
s:=0;
k:=(298-1)/3;
for i:=1 to k do
begin
d:=1;
s:=d+s;
d:=d+3;
end;
writeln(s);
readln;
end.
_____________________________
我用的Pascal语言,保证好用

Dim A,B,C
A=1
C=0
For B = 1 To 1000
A=A+3
C=C+A
If A>=298 Then Exit For
Next
Response.Write(C)

Dim i%, s%
For i = 1 To 100
s = i * 3 - 2 + s
Next
Print s