Question

Дано целое число x номер дня недели. Определить является, ли этот день выходным или рабочим.
(Составить программу)

Answer 1

• program paskal;
• var x:integer;
• begin
• writeln('Введите номер дня недели:');
• readln(x);
• if x in [1..5] then begin
• writeln('Рабочий');
• end;
• if x in [6..7] then begin
• writeln('Выходной');
• end;
• end.