очень надо, помогите прошу Дано целое число К. Вывести строку-описание оценки,...

0 голосов
304 просмотров

очень надо, помогите прошу

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


Информатика | 304 просмотров
Дано ответов: 2
0 голосов

во вложениях скрин Паскаль АВС. должно быть правильно


image
(404 баллов)
0 голосов

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

 

Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then <br>Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.

(3.2k баллов)