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