Question

Создайте программу на языке pascal , определяющую, какой сейчас сезон по введённой температуре воздуха:от 0 до -30 0С – зима; от +20 до +40 0С – лето; иначе (от +1 до +19 0С) - весна или осень.

Answer 1

var x: real;

begin

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

 readln(x);

if (x>=-30) and (x<=0) then writeln('зима')else

 if (x>=20) and (x<=40) then writeln('лето') else

   writeln('весна или осень')  

end.