составить программу которая запрашивает температуру воздуха на улице (0 <t<+30) и сообщает жарко или прохладно срочно нужнооо
Answers & Comments
Dimarik708
Var a : integer;beginwriteln('Введите температуру: ');read(a);if (a<31) and (a>10) then writeln('Жарко');if (a>0) and (a<11) then writeln('Прохладно');if a>30 then writeln('Температура не соответстувет условию 0<t<30');if a<1 then writeln('Температура не соответстувет условию 0<t<30');end. Т.к при копировании текста из паскаля строки сливаются- нормальный ответ в комментарии
3 votes Thanks 6
Dimarik708
var a : integer; begin writeln('Введите температуру: '); read(a); if (a<31) and (a>10) then writeln('Жарко'); if (a>0) and (a<11) then writeln('Прохладно'); if a>30 then writeln('Температура не соответстувет условию 0<t<30'); if a<1 then writeln('Температура не соответстувет условию 0<t<30'); end.
Answers & Comments
Т.к при копировании текста из паскаля строки сливаются- нормальный ответ в комментарии
begin
writeln('Введите температуру: ');
read(a);
if (a<31) and (a>10) then writeln('Жарко');
if (a>0) and (a<11) then writeln('Прохладно');
if a>30 then writeln('Температура не соответстувет условию 0<t<30');
if a<1 then writeln('Температура не соответстувет условию 0<t<30');
end.