всегда была неувязка с Паскалем. помогите решить.спортсмен пробежал в первый день

Всегда была неувязка с Паскалем. помогите решить.
спортсмен пробежал в 1-ый денек 10 км. Каждый последующий день он пробежал на 10% больше вчерашнего. Сколько он пробежит за n дней?
Я попробовала так:
var a:real;
i,n:integer;
begin
a:=10;
readln(n);
for i:=1 to n do
begin
a:=a+(a*0.1);
end;
write(a);
end.

Комеровская Наталья 2019-09-10 07:43:17

Здесь в конце цикла будет выдано, сколько он пробежит на N-ный денек, но надо ж суммировать пробежку за все деньки

Лилия Зеркова 2019-09-10 07:45:46

Кстати, запись "a:=a+(a*0.1);", можно уменьшить до "a:=a*1.1;"