Вопрос пользователя:
В Паскале
Составьте программу, определяющую название дня недели по его номеру: 1 – Понедельник, 2 – Вторник и т.д. При вводе числа вне диапазона [1..7] программа должна выдать сообщение об ошибке
Илюха отвечает:
Var x: byte;
Begin
Write(‘ введите число от 1 до 7′)
Readln(x);
Case x of
1: writeln(‘понедельник’);
2: writeln(‘вторник’);
3: writeln(‘среда’);
4: writeln(‘четверг’);
5: writeln(‘пятница’);
6: writeln(‘суббота’);
7: writeln(‘воскресенье’);
end;
Readln
End.
я не помню как чтоб выдало ошибку ..пили если больше х то ошибка