Question

Создайте проект для решения задачи с использованием цикла со счетчиком:

Перед началом наводнения уровень воды составлял Н метров. Во время наводнения каждый час уровень воды увеличивался на Р процентов по сравнению с уровнем предыдущего часа. Через сколько часов после начала наводнения уровень воды будет не менее чем К метров?

Answer 1

var

H:real;

P:integer;

N:integer;

i:integer;

begin

 readln(H,P,N);

 for i:=1 to N do

   H:=H + H/100*P;

writeln(H);

end.