Надо, прошу дано целое число к. вывести строку-описание оценки, соответствующей числу к (1- "плохо" , 2- "неудовлетворительно" , 3 - "удовлетворительно" , 4- "хорошо" , 5- "отлично". если к не лежит в диапазоне 1-5 , вывести "ошибка".

143

399

Посмотреть ответы 2

Ответы на вопрос:

dasha54321d

Информатика

4,6(29 оценок)

можно ещё использовать оператор выбора case

program pr; uses crt; var k: integer; beginwriteln('введите k'); readln(k); if (k> =1) and (k< =5) then begincase k of1: writeln('плохо'); 2: writeln('неудовлетворительно'); 3: writeln('удовлетворительно'); 4: writeln('хорошо'); 5: writeln('отлично'); end; endelse writeln('ошибка'); readln; end.