Составьте программу, которая запрашивает ввод трех значений температуры и проверяет, есть ли среди них температура таяния льда (>0), на языке Паскаль.

Вот пример программы на языке Паскаль, которая запрашивает у пользователя три значения температуры и проверяет, есть ли среди них температура таяния льда, то есть значение больше нуля:

pascal
Копировать код
program CheckTemperature;
var
  t1, t2, t3: real;
begin
  writeln('Введите три значения температуры:');
  readln(t1, t2, t3);
  
  if (t1 > 0) or (t2 > 0) or (t3 > 0) then
    writeln('Есть температура таяния льда (выше 0 градусов).')
  else
    writeln('Все температуры ниже или равны 0 градусам.');
end.

Пояснение работы программы:

1. Объявляются три переменные t1, t2 и t3 для хранения введённых температур.

2. С помощью readln программа запрашивает у пользователя три числа.

3. Далее используется логическое выражение с оператором or, чтобы проверить, превышает ли хотя бы одно значение ноль.

4. Если условие истинно — выводится сообщение, что есть температура таяния льда. Если нет — программа сообщает, что все температуры не превышают нуля.

Таким образом, программа корректно определяет, присутствует ли среди введённых значений температура выше точки таяния льда.