ТутРешу.Ру

В Паскале Составьте программу…

Задание:

В Паскале Составьте программу, определяющую название дня недели по его номеру: 1 — Понедельник, 2 — Вторник и т.д. при вводе числа вне диапазона[1… 7] программа должна выдать сообщение об ошибке

Решение:

Var x: byte; BeginWrite (‘ введите число от 1 до 7') Readln (x); Case x of1: writeln (‘понедельник’); 2: writeln (‘вторник’); 3: writeln (‘среда’); 4: writeln (‘четверг’); 5: writeln (‘пятница’); 6: writeln (‘суббота’); 7: writeln (‘воскресенье’); end; ReadlnEnd. Я не помню как чтоб выдало ошибку … пили если больше х то ошибка




Знаете другой ответ?

Отправить свой ответ