помагите решить задачу )

[Castro]

Тема: циклы с накоплением

Начав тренировку, спорстмен в первый день пробег 10 км. Каждого на следующий день он увеличивал дневную норму на 10 % от нормы предыдущего дня. За сколько дней спортсмен пробежит 100 км?

[6AZblJlb]

думаю так

var
k: real;
n: longint;
begin
n:=1;
k:=10;
  while k<=100 do
    begin
      n:=n+1;
      k:=k+k*0.1;
      end;
      writeln(n);
end.

[6AZblJlb]

не не так...я ошибся....
скорее всего вот так..... раз только от предыдущей

var
k,a: real;
n: longint;
begin
n:=1;
k:=10;
  while k<=100 do
    begin
      n:=n+1;
      a:=k*0.1;
      k:=k+10+a;
      end;
      writeln(n);
end.

[Castro]

мм... спс но ответ выходит 26, а эт если посчитать то примерно должно выйти дет 8 дней так вот

[Castro]

хм... а можеш сказать от куда ты взял n:=1; ?

[6AZblJlb]

за 1 день он уже пробежал по этому и 1 и 'к' уже равно 10, за первый день 10 км а дальше наращиваем

[Castro]

спасибо тебе большоЕ )

ps а 0,1 ?

[evg_m]

sum:=0;
norm:=10; n:=1; sum:=sum+norm; //первый день
while sum<=100 do begin
norm+norm*0.1; // как вариант можно norm:=norm*1.1;
sum:=sum+norm;
n:=n+1;
end;

[Zeraim]

0.1 - теже 10% тоесть если мы наши 10% разделим на 100% то мы получим 0.1 - на это можно умножить любое число и мы получим 10% от числа.