Вопрос по информатике:
Не пользуясь формулой суммы найти сумму членов геометрической прогрессии заданной начальным членом, количеством членов прогрессии и ее знаменателем. Используйте для решений цикл с шагом. ( PascalABC.NET )
Пожаловаться
- 14.07.2018 06:18
- Информатика
- remove_red_eye 2081
- thumb_up 47
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a,q):=ReadReal2('Введите начальный член и знаменатель:');
var n:=ReadInteger('Введите количество членов прогрессии:');
var s:=a;
for var i:=2 to n do begin a*=q; s+=a end;
Writeln('Сумма членов прогрессии равна ',s)
end.
Пример
Введите начальный член и знаменатель: 1.25 0.13
Введите количество членов прогрессии: 15
Сумма членов прогрессии равна 1.43678160919533
// Внимание! Если программа не работает, обновите версию!
begin
var (a,q):=ReadReal2('Введите начальный член и знаменатель:');
var n:=ReadInteger('Введите количество членов прогрессии:');
var s:=a;
for var i:=2 to n do begin a*=q; s+=a end;
Writeln('Сумма членов прогрессии равна ',s)
end.
Пример
Введите начальный член и знаменатель: 1.25 0.13
Введите количество членов прогрессии: 15
Сумма членов прогрессии равна 1.43678160919533
Пожаловаться
- 15.07.2018 04:26
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы