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

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

 if (36.5 <= n) and  (n<= 36.6) then

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

 if (36.7 <= n) and (n <= 41) then

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

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

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

end.

Answer 2

Конечно, я могу помочь вам написать программы на Pascal для решения задач 1 и 2. Вот код для обеих задач:

Задача 1: Определение времени года по номеру месяца.

pascalCopy code
program SeasonByMonth;

var
  MonthNumber: integer;

begin
  write('Введите номер месяца (1-12): ');
  readln(MonthNumber);

  case MonthNumber of
    1, 2, 12: writeln('Зима');
    3, 4, 5: writeln('Весна');
    6, 7, 8: writeln('Лето');
    9, 10, 11: writeln('Осень');
    else writeln('Неверный номер месяца');
  end;

  readln;
end.

Задача 2: Определение температуры человека.

pascalCopy code
program BodyTemperature;

var
  Temperature: real;

begin
  write('Введите температуру человека: ');
  readln(Temperature);

  if (Temperature < 34) or (Temperature > 41) then
    writeln('Температура не может быть');
  else if (Temperature >= 34.1) and (Temperature <= 36.4) then
    writeln('Пониженная температура');
  else if (Temperature >= 36.5) and (Temperature <= 36.6) then
    writeln('Нормальная температура');
  else if (Temperature >= 36.7) and (Temperature <= 41) then
    writeln('Повышенная температура')
  else
    writeln('Неверное значение температуры');

  readln;
end.

Просто скопируйте код для каждой из задач в среду программирования Pascal (например, Free Pascal) и выполните программу, чтобы получить результаты.