Question

В Паскаль ABC
Бегун в первый день пробежал 5 км, каждый следующий день он пробегал на 10% больше предыдущего. Определить сколько он пробежит на седьмой день и за всю неделю в целом.

Answer 1

Var
   A,S:real;
   i:integer;
Begin
A:=5;
S:=A;
For i:= 1 to 6 do
    Begin
    A:=A*1.1;
    S:=S+A;
    End;
WriteLn(A:0:3,' ',S:0:3)
End.