Помогите пожалуйста! Задана арифметическая прогрессия. 8,4; 6,2 … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала меньше 0. На языке Паскаль надо
Помогите пожалуйста!
Задана арифметическая прогрессия. 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.
Не нашли ответ?
Похожие вопросы