Вопрос по информатике:
Опять паскаль...
Задана арифметическая прогрессия 2; 2,8; … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала >20.
- 11.07.2015 19:59
- Информатика
- remove_red_eye 3828
- thumb_up 49
Ответы и объяснения 2
Ну наверно так:
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.
- 13.07.2015 13:31
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.