Дана последовательность чисел 1, 4, 7, 10, 13, 16........ Считать сумму всех элементов...

Question

Дана последовательность чисел 1, 4, 7, 10, 13, 16........ Считать сумму всех элементов этой последовательности до тех пор пока она не достигнет 1000

Answer 1

Var a,i,s:integer;
begin
a:=4;
s:=0;
while a<=1000 do<br>begin
s:=s+a;
a:=a+3;
end;
writeln(s)
end.