Turbo Pascal. Написать программу ... Каков будет пробег спортсмена на N-й день, если в первый день Х км и каждый следующий день на 10% больше чем в предыдущем.

Если в 1 день спортсмен пробегает х км, то на следующий день он пробежит на 10% больше:

х + х * 0,1.

10% это 10 / 100;

Program Primer1;

Var

i, N: integer;

x, s: real;

begin

read (x); { пробег за 1 день}

read (N); {вводим количество дней}

s: = x; {сумма пробега за 1 день}

for i: = 2 to N do

begin

x: = x * 1.1; {пробег за каждый следующий день}

s: = s + x; {сумма пробега}

end;

writeln (s); {пробег за N день}

end.