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.

Answer 2

Вот пример программы на языке Pascal, которая определяет текущий сезон на основе введенной температуры воздуха:

pascalCopy code
program SeasonDetector;

var
  temperature: real;

begin
  writeln('Введите температуру воздуха: ');
  readln(temperature);

  if (temperature >= -30) and (temperature < 0) then
    writeln('Сейчас зима')
  else if (temperature >= 20) and (temperature <= 40) then
    writeln('Сейчас лето')
  else
    writeln('Сейчас весна или осень');

  readln;
end.

Вы можете запустить эту программу, ввести температуру, и она выдаст вам текущий сезон на основе введенных данных о температуре.