Question

Спортсмен в первый день пробежал 8 км. Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. Определить, через сколько дней спортсмен пробежит суммарный путь 40 км. Задача в Pascal

Answer 1

Var a,s: real;
    i: integer;
begin
  a:=8;
  s:=a;
  i:=1;
  repeat
    i:=i+1;
    a:=a*1.1;
    s:=s+a;
  until s>=40;
  writeln(i);
//  через геометрическую прогрессию
//  s:=ln(1.5)/ln(1.1);
//  if frac(s)>0 then s:=int(s)+1;
//  writeln(s);
end.

Answer 2

Var
S,a:real;
k:integer;
Begin
a:=8;
k:=0;
Repeat
k:=k+1;
S:=S+a;
a:=a*1.1;
Until S>=40;
WriteLn('k = ',k)
End.