Case2. Дано целое число K. Вывести строку-описание оценки, соответствующей числу $$K$$ (1 — «плохо», 2 — «неудовлетворительно», 3 — «удовлетворительно», 4 — «хорошо», 5 — «отлично»). Если $$K$$ не лежит в диапазоне 1–5, то вывести строку «ошибка».
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program Case2; var K:Integer; begin Write('Введите число оценки: '); Readln(K); Case K of 1: Writeln('плохо'); 2: Writeln('неудовлетворительно'); 3: Writeln('удовлетворительно'); 4: Writeln('хорошо'); 5: Writeln('отлично'); else Writeln('ошибка'); end; end. |
Другие задачи из раздела Case можно посмотреть здесь.
Комментарии: