ПОМОГИТЕЕ, 25 БАЛЛОВ ДАМ ЗА РЕШЕНИЕ Задача 1Составить программу, которая по номеру...

Question

ПОМОГИТЕЕ, 25 БАЛЛОВ ДАМ ЗА РЕШЕНИЕ Задача 1Составить программу, которая по номеру месяца выводит время года.Например:N=1ЗимаЗадание 2Составить программу, которая определяет температуру человека по введенному значению:•Меньше 34 или более 41: не может быть•От 34,1 до 36,4: пониженная•От 36,5 до 36,6: нормальная•От 36,7 до 41: повышеннаяИ ВСЁ В ПАСКАЛЬ

Answer 1

Ответ:

1)

var n:integer;

begin

  writeln('Введите номер месяца: ');

 readln(n);

 if (n = 1) or (n = 2) or (n = 12) then

   writeln('Зима');

 if (n = 3) or (n = 4) or (n = 5) then

   writeln('Весна');

 if (n = 6) or (n = 7) or (n = 8) then

   writeln('Лето');

 if (n = 9) or (n = 10) or (n = 11) then

   writeln('Осень');

end.

2)

var n:real;

begin

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

 readln(n);

 if (34.1 <= n) and (n <= 36.4) then</p>

   writeln('Пониженная');

 if (36.5 <= n) and  (n<= 36.6) then</p>

   writeln('Нормальная');

 if (36.7 <= n) and (n <= 41) then</p>

   writeln('Повышенная');

  if (n <= 34) or (n > 41) then

   writeln('Не может быть!');

end.