Опять паскаль... Задана арифметическая прогрессия 2; 2,8; … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала больше 20.
Опять паскаль...
Задана арифметическая прогрессия 2; 2,8; … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала >20.
Гость
Ответ(ы) на вопрос:
Гостьa := 2.0;
i := 1;
while (a < 20) do
begin
a := a + a + 0.8;
inc(i);
end;
writeln(i);
ГостьНу наверно так:
program qq;
var i:integer; sum,num:real;
Begin
num=2;
sum:=2;
i:=1;
while(sum<=20)
Begin
i:=i+1;
num:=num+0.8;
sum:=sum+(sum+num);
End;
Writeln('Количество членов прогрессии: ', i);
End.
Не нашли ответ?
Похожие вопросы