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

Question

Информатика

Русланыч

22 октября, 02:49

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

+2

Ответы (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.