Меню сайта

Задача №12

Дано целое число К. Вывести строку-описание оценки, соответствующей числу К( 1- «плохо», 2 –«неудовлетворительно», 3 – «удовлетворительно», 4 – «хорошо», 5 – «отлично». Если К не лежит в диапазоне 1-5, вывести «ошибка».


Program case_1-

Var k:integer-

Begin

Writeln(‘введите оценку’)-

Readln(k)-

Case k of

1:Writeln(‘плохо’)-

2:Writeln(‘не удовлетворительно’)-

3:Writeln (‘удовлетворительно’)-

4:Writeln(‘хорошо’)-

5:Writeln(‘отлично’)-

Else Writeln(‘такой оценки не существует’)-

end-

Readln-

End.

Категория: Разветвляющиеся программы | Дата: 09.01.13

Меню раздела
Блок