Case1. Дано целое число в диапазоне 1–7. Вывести строку — название дня не дели, соответствующее данному числу (1 — «понедельник», 2 — «вторник» и т. д.).
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
program Case1; var D:Integer; begin Write('Введите номер дня недели: '); Readln(D); Case D of 1: Writeln('Понедельник.'); 2: Writeln('Вторник.'); 3: Writeln('Среда.'); 4: Writeln('Четверг.'); 5: Writeln('Пятница.'); 6: Writeln('Суббота.'); 7: Writeln('Воскресенье.'); end; end. |
Другие задачи из раздела Case можно посмотреть здесь.
begin 1 решения
begin1 решение