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