Вопрос по информатике:
В Паскаль ABC Бегун в первый день пробежал 5 км, каждый следующий день он пробегал на 10% больше предыдущего. Определить сколько он пробежит на седьмой день и за всю неделю в целом.
Пожаловаться
- 22.10.2017 12:30
- Информатика
- remove_red_eye 10995
- thumb_up 12
Ответы и объяснения 1
Var a, b: real;
i: byte;
begin
a := 5;
b := 5;
for i := 2 to 7 do begin
a := 1.1 * a;
b := b + a
end;
writeln ('За седьмой день бегун пробежит ', a,' км');
writeln ('За неделю бегун пробежит ', b,' км')
end.
Можно вместо введения цикла использовать формулы n-ого члена геометрической прогрессии (в данном случае 7-ого) и суммы n членов геометрической прогрессии (в данном случае 7-и).
i: byte;
begin
a := 5;
b := 5;
for i := 2 to 7 do begin
a := 1.1 * a;
b := b + a
end;
writeln ('За седьмой день бегун пробежит ', a,' км');
writeln ('За неделю бегун пробежит ', b,' км')
end.
Можно вместо введения цикла использовать формулы n-ого члена геометрической прогрессии (в данном случае 7-ого) и суммы n членов геометрической прогрессии (в данном случае 7-и).
Пожаловаться
- 23.10.2017 09:49
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы