Program day; var x:byte;beginwriteln(Введите число, чтобы узнать, какому дню недели оно соответствует:);Readln(x);Case x of0: writeln(Такого дня недели не существует.);1: writeln(Понедельник.);2: writeln(Вторник.);3: writeln(Среда.);4: writeln(Четверг.);5: writeln(Пятница.);6: writeln(Суббота.);7: writeln(Воскресенье.);8..1000: writeln(еправильный ввод.);end;end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.