var i:integer; n,s:real;beginn:=10;for i:=1 to 7 do begin s:=s+n; n:=n*1.1 end;writeln('Путь: ',s)end.
Решение больше математическое получилось с выводом формулы, там уж сами выберете как вам лучше. На каждый следующий день спортсмен пробегает в большее расстояние чем в предыдущий. Т.е. если обобщить: Расстояние, которое спортсмен пробегает каждый n-ный день. В итоге, у нас получилась геометрическая прогрессия, где Чтобы найти сумму первых n членов геометрической прогрессии: В программе пишем: _________________________ var i:integer; k:double; begin k:=1.1; for i:=1 to 6 do k:=k*1.1; writeln(100*(k-1):0:2); end. __________________________
Var i,k,m,s:integer; k1,k2:real; begin k:=10; m:=10; s:=7; k1:=k; k2:=k; for i:=1 to s-1 do begin k1:=k1+k1*m/100; k2:=k2+k1; end; writeln(k2:0:1); end.
программа выдаёт ответ с округлением до 1 знака после запяткой.