Question

1 Ввести с клавиатуры номер месяца. Напечатать время года. 2 Ввести с клавиатуры час суток. Напечатать время суток: утро, день, вечер, ночь.Паскаль!!! 8 класс

Answer 1

Ответ:

1)25.02.2020

2) утро 8

день 13

вечер 6

ночь 21

Answer 2

Для решения задачи на определение времени года и времени суток на Паскале, вы можете использовать следующий код:

1. Определение времени года:

pascalCopy code
program Seasons;

var
  month: integer;

begin
  Write('Введите номер месяца (от 1 до 12): ');
  Readln(month);

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

2. Определение времени суток:

pascalCopy code
program TimeOfDay;

var
  hour: integer;

begin
  Write('Введите час суток (от 0 до 23): ');
  Readln(hour);

  if (hour >= 0) and (hour < 6) then
    WriteLn('Ночь')
  else if (hour >= 6) and (hour < 12) then
    WriteLn('Утро')
  else if (hour >= 12) and (hour < 18) then
    WriteLn('День')
  else if (hour >= 18) and (hour < 24) then
    WriteLn('Вечер')
  else
    WriteLn('Неверный час');
end.

Обратите внимание, что код предполагает ввод числовых значений с клавиатуры и выводит результат на экран.