Question

ПРОГРАММИРОВАНИЕ PascalABC

вводится температура воды ( больше О, меньше О или равная О). В зависимости от введённой температуры вывести одно из сообщений: - нагревается -простой -замерзает​

Answer 1

var

 t: real;

begin

 writeln('Введите температуру:');

 readln(t);

 if t > 0 then

   writeln('Нагревается.');

 if t < 0 then

   writeln('Замерзает.');

 if t = 0 then

   writeln('Простой.');

end.