Пленник, которого держали в охраняемой землянке, делал подземный ход. В первую ночь он...

Question

Пленник, которого держали в охраняемой землянке, делал подземный ход. В первую ночь он прокопал ход длиной 1 м. Каждую следующую ночь из-за потери сил он делал ход на 5% короче. Через сколько дней он сможет сбежать, если до свободы путь 13 м?
Турбо Паскаль

Answer 1

Uses crt;
var
  len, h : real;
  day : integer;
  begin  len := 13;
  h := 1;
  clrscr;
    while len > 0 do begin
    len := len - h;
    h := h - h * 0.05;
    day := day + 1;
  end;
    write(day);
end.