Помогите пожалуйста!
Задана арифметическая прогрессия. 8,4; 6,2 … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала <0. На языке Паскаль надо
Задана арифметическая прогрессия. 8,4; 6,2 … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала <0. На языке Паскаль надо
More Questions From This User See All
Answers & Comments
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.