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

Question

Начав тренировки,спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. Какой суммарный путь
пробежит спортсмен за 7 дней?
c помощью for i

Answer 1

I: Integer;    
f,x,y: Real;
.......
x:= 10;
f:= x;
for i:= 2 to 7 do begin // так как 1 день он уже пробежался
y:= (x/100)*10;          
x:= x + y;          
f:= x + f;
end;
WriteLn('Всего  спортсмен пробежал ',f:5:2,' километров');
ReadLn;