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

Question

Дарий

20 апреля, 07:23

+4

Ответы (1)

Знаете ответ на вопрос?

Эля · Answer 1

Var a, i, s:integer;

begin

a:=4;

s:=0;

while a<=1000 do

begin

s:=s+a;

a:=a+3;

end;

writeln (s)

end.