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.
Прям бесит... ну столько уже написано и сделано! Лень впере тебя родилась...