20. Составить алгоритм и написать решение задачи на Паскале: Дано целое число от 1 до 7. Вывести одно из сообщений: "Рабочий день", "Суббота", "Воскресенье".

Question

Информатика

Димаха

19 декабря, 12:46

20. Составить алгоритм и написать решение задачи на Паскале: Дано целое число от 1 до 7. Вывести одно из сообщений: "Рабочий день", "Суббота", "Воскресенье".

+2

Ответы (1)

Знаете ответ на вопрос?

Катюня · Answer 1

Program day;

var

dow: integer;

label main;

begin

write ('введите число: ') ;

main:

readln (dow) ;

case dow of

1, 2, 3, 4, 5: writeln ('Рабочий день') ;

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

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

else:

begin

writeln ('Не день недели! Повторите ввод.') ;

goto main;

end;

end;

readln;

end.