Question

Напишите программу, которая по номеру дня недели выводит "Рабочий день", если это день с понедельника по пятницу, или "Суббота" или "Воскресенье". Язык Паскаль.

Answer 1

var day:integer;

begin

   readln(day);

   case day of

       1..5: writeln('Рабочий день');

       6: writeln('Суббота');

       7: writeln('Воскресенье');

   end;

end.

fpc 3.0.0

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая выводит тип дня недели в зависимости от номера дня:

pascalCopy code
program DayOfWeek;

var
  dayNumber: Integer;

begin
  writeln('Введите номер дня недели (1 - понедельник, 2 - вторник, и т.д.): ');
  readln(dayNumber);

  case dayNumber of
    1..5: writeln('Рабочий день');
    6: writeln('Суббота');
    7: writeln('Воскресенье');
    else writeln('Некорректный номер дня');
  end;

  readln;
end.

Программа запрашивает у пользователя ввести номер дня недели от 1 до 7. Затем она использует конструкцию case для проверки значения dayNumber и выводит соответствующий результат.

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