ДАЮ ВСЕ ОСТАВШИЕСЯ БАЛЛЫ! Создайте проект для решения задачи с использованием цикла с...

Question

ДАЮ ВСЕ ОСТАВШИЕСЯ БАЛЛЫ! Создайте проект для решения задачи с использованием цикла с постусловием (repeat ... until): Перед началом наводнения уровень воды составлял Н метров. Во время наводнения каждый час уровень воды увеличивался на Рпроцентов по сравнению с уровнем предыдущего часа. Каким будет уровень воды через N часов после начала наводнения?

Answer 1

Ответ:

Объяснение:

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.

Comments

Спасибо, Вы очень выручили!

---

;)

---

у меня лазарус от Вашей программы завис

---

это паскаль ABC

---

Проверьте может синтаксис в Лазарусе отличается , есть ошибки?