Составьте программу в паскаль с помощью while. Стакан кипятка (100 °С) остыл за первую минуту на А градусов, а каждую последующую минуту остывал на 15% меньше, чем в предыдущую. Через сколько минут температура воды станет ниже Nо С?

program zz1;

var k, n, s, i, A:integer; / / задаем переменные

begin

write ('введите нижнюю границу температуры ');

read (n);

write ('введите на сколько остыла вода в первый день ');

read (A);

i:=100-A; / / уменьшаем температуру на заданное значение

k:=1; / / считаем первый день

while i>n do / / организуем цикл, пока температура выше заданной

begin

i:=i - (i*15 div 100); / / уменьшаем температуру на 15%

k:=k+1; / / считаем дни

end;

write ('через ', k,' дней температура станет меньше заданной'); / / выводим ответ

end.