Question

Спортсмен в 1ый день пробежал 10 км., в каждый следущий он пробегал на 10% больше предыдущего дня. сколько км. он пробежал за 7 дней.
Составить программу на языке паскаль 

Answer 1

var finish,norma: real;i:integer;
begin
norma:=10;
finish:=10;
for i:=1 to 6 do
begin
norma:=1.1*norma;
finish:=finish+norma;
end;

writeln('all= ',finish)
end.