Задать вопрос
15 апреля, 14:09

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

+3
Ответы (1)
  1. 15 апреля, 16:43
    0
    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.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Составьте программу в паскаль с помощью while. Стакан кипятка (100 °С) остыл за первую минуту на А градусов, а каждую последующую минуту ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике