Помогите пожалуйста!
Задана арифметическая прогрессия. 8,4; 6,2 … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала <0. На языке Паскаль надо
Var a,s: real;
i: integer;
begin
a:=8.4;
s:=a;
i:=1;
repeat
begin
a:=a-2.2;
s:=s+a;
i:=i+1;
end;
until s<0;
write(число слагаемых = ,i);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
