Дана последовательность чисел 1, 4, 7, 10, 13, 16........ Считать сумму всех элементов этой последовательности до тех пор пока она не достигнет 1000
Дана последовательность чисел 1, 4, 7, 10, 13, 16........ Считать сумму всех элементов этой последовательности до тех пор пока она не достигнет 1000
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы