Осуществить ввод последовательность целых чисел - вопрос №3011483 от Мята04 04.03.2020 08:54

Question

Информатика: Осуществить ввод последовательность целых чисел количестве не меньше 3, определить сколько из них больше из их соседей последовательность потенциальности не ограничено окончанием служит число 0​

Мята04 · Answer

Решение больше математическое получилось с выводом формулы, там уж сами выберете как вам лучше.
На каждый следующий день спортсмен пробегает в
$\frac{100+10}{100} = 1.1$
большее расстояние чем в предыдущий.
Т.е. если обобщить:
$S_n = 10(1.1)^{n-1}$
Расстояние, которое спортсмен пробегает каждый n-ный день.
В итоге, у нас получилась геометрическая прогрессия, где
b_1 = 10; q = 1.1

$b_n = 10(1.1)^{n-1}$
Чтобы найти сумму первых n членов геометрической прогрессии:
$S_n = \frac{b1(1-q^n)}{1 - q} \\
S_7 = \frac{10(1-1.1^7)}{1 - 1.1} = \frac{-10(1.1^7-1)}{-0.1} = 100(1.1^7 - 1)$
В программе пишем:
_________________________
var
i:integer;
k:double;
begin
k:=1.1;
for i:=1 to 6 do k:=k*1.1;
writeln(100*(k-1):0:2);
end.
__________________________