Напишите код. (Pascal). Мы будем заниматься программированием в рабочие дни после 18:00 вечера. Введите номер

Скорпион

68

Конечно, я могу помочь вам с написанием кода на языке Pascal. Для решения вашей задачи, вам понадобится написать код, который будет проверять день недели и время, чтобы определить, настало ли время для программирования.

Вот пример кода на языке Pascal, который решает данную задачу:

pascal

program CodingTime;



var

  dayOfWeek: Integer;

  time: Integer;



begin

  writeln("Введите номер дня недели (от 1 до 7): ");

  readln(dayOfWeek);

  

  writeln("Введите время в часах (от 0 до 23): ");

  readln(time);

  

  if (dayOfWeek >= 1) and (dayOfWeek <= 5) and (time >= 18) and (time <= 23) then

  begin

    writeln("Да, настало время для кодинга!");

  end

  else

  begin

    writeln("Нет, сейчас не время для кодинга.");

  end;

  

  readln;

end.

Объяснение решения:
Мы используем переменные `dayOfWeek` и `time` для хранения введенного значения дня недели и времени. Затем, с помощью условного оператора `if`, проверяем следующие условия:
- `dayOfWeek` должен быть от 1 до 5, чтобы попасть на рабочую неделю с понедельника по пятницу.
- `time` должно быть от 18 до 23, чтобы находиться в пределах вечера после 18:00.

Если оба условия верны, то выводится сообщение "Да, настало время для кодинга!". В противном случае выводится сообщение "Нет, сейчас не время для кодинга.".

Пожалуйста, учтите, что код выше является примером и может быть доработан с учетом ваших конкретных требований и условий.