Top.Mail.Ru
Ответы

Pascal, тип данных, заданных пользователем

Необходимо определить, выходным или рабочим является введенный день недели (по его порядковому номеру). Обязательно использовать "type".

По дате
По рейтингу
Аватар пользователя
Новичок
12345678910111213
 type 
  TDW = (Mon = 1, Tue, Wed, Thu, Fri, Sat, Sun); 
 
var 
  d: integer; 
 
begin 
  read(d); 
  if TDW(d) in [Mon .. Fri] then 
    writeln('рабочий') 
  else 
    writeln('выходной'); 
end. 
Аватар пользователя
Искусственный Интеллект

Прям бесит... ну столько уже написано и сделано! Лень впере тебя родилась...