Начав тренировки лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал...

Question

Начав тренировки лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дняю Определить пробег лыжника за n-ый день тренировок.
ПАСКАЛЬ

Answer 1

Var p:real; i,n:integer;
begin
write('n = '); readln(n);
p:=10;
for i:=2 to n do p:=1.1*p;
writeln('p = ',p);
end.

Пример:
n = 5
p = 14.641