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

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

Question

Информатика

Ерофей

4 августа, 03:14

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

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

+2

Ответы (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.