Question

Начав тренировки, лыжник в первый день пробежал А км. Каждый следующий день он увеличивал пробег на 5% от пробега предыдущего дня. Определить, через сколько дней его суммарный пробег достигнет В км. Pascal

Answer 1

Попробуй поворочать этот вариант; не гарантирую, что он совсем уж правильный:

program Hello;

var a,b:real; d:integer;

begin

   writeln('Введите проход за первый день. . .');

   readln(a);

   writeln('Введите суммарный проход. . .');

   readln(b);

   d := 1;

   while a < b do begin

                   a := a + a + a*0.05;

                   d := d + 1;

                  end;

   writeln('Потребовалось ' , d , ' дней.');                

end.