По введенному номеру от 1 до 7 выводит на экран день недели

Question

Информатика

Вака

11 мая, 04:15

По введенному номеру от 1 до 7 выводит на экран день недели

+3

Ответы (1)

Знаете ответ?

Тимофеич · Answer 1

Var day:integer; begin writeln ('Введите номер дня недели (1-7) : ') ; readln (day) ; case day of 1:writeln ('Понедельник') ; 2:writeln ('Вторник') ; 3:writeln ('Среда') ; 4:writeln ('Четверг') ; 5:writeln ('Пятница') ; 6:writeln ('Суббота') ; 7:writeln ('Воскресенье') ; else writeln ('Неверно введён день недели!') ; end; end.