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

Турбо Паскаль

Question

Информатика

Касьян

26 декабря, 05:59

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

Турбо Паскаль

+3

Ответы (1)

Знаете ответ на вопрос?

Клементина · 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.