ДАЮ ВСЕ ОСТАВШИЕСЯ БАЛЛЫ! Создайте проект для решения задачи с использованием цикла с постусловием (repeat ... until):
Перед началом наводнения уровень воды составлял Н метров. Во время наводнения каждый час уровень воды увеличивался на Рпроцентов по сравнению с уровнем предыдущего часа. Каким будет уровень воды через N часов после начала наводнения?
Перед началом наводнения уровень воды составлял Н метров. Во время наводнения каждый час уровень воды увеличивался на Рпроцентов по сравнению с уровнем предыдущего часа. Каким будет уровень воды через N часов после начала наводнения?
Answers & Comments
Ответ:
Объяснение:
var
h,p,n,naw,persent:real;
begin
writeln('Введите начальное количество воды H =');
readln(h);
writeln('Введите количество процентов за 1 час P =');
readln(p);
writeln('Введите количество час(ов) N =');
readln(n);
persent:=h*p/100;
repeat
h:=h+persent;
naw:= naw+1;
until naw=n ;
writeln('Уровень воды спустя ',n,' час(ов) равен H = ',h);
end.