Вводится номер дня недели. Вывести его расшифровку в текстовом виде .Если номера такого...

Question

Вводится номер дня недели. Вывести его расшифровку в текстовом виде .Если номера такого нет " Неправильный ввод'.
Паскаль!!

Answer 1

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.

Comments

program day;
var x:byte;
begin
writeln('Введите число, чтобы узнать, какому дню недели оно соответствует:');
Readln(x);
Case x of
0: writeln('Такого дня недели не существует');
1: writeln('Понедельник');
2: writeln('Вторник');
3: writeln('Среда');
4: writeln('Четверг');
5: writeln('Пятница');
6: writeln('Суббота');
7: writeln('Воскресенье');
8..99: writeln('Такого дня недели не существует');
end;
end.