Question

Вычислить сумму 7+10+13+16+… Складывать до тех пор пока слагаемое не станет больше 1000
МНЕ НУЖНО САМО РЕШЕНИЕ!!!!!

Answer 1

Само решение это вы так программу называете...

Программа будет приведена на языке Pascal, краткий алгоритм наших действий:

Возьмем переменную X для хранения данных о слагаемых, дадим начальное значение 7 и будем проверять, пока X <= 1000 прибавляем к сумме X.

var

s : longint;

x : integer;

begin

s := 0;

x := 7;

while (x<=1000) do

begin

s:= s + x;

x := x + 3;

end;

writeln(s);

end.