Question

Дано целое число в диапазоне 1 - 10. Вывести строку - словесное описание соответствующей оценки (1-2 плохо, 3-4 -неудовлетворительно, 5-6 - удовлетворительно, 7-8 - хорошо, 9-10 отлично.

Answer 1

Var a : integer; Begin Write("Введите оценку: "); Readln(a); If a <= 2 then writeln("Плохо!"); If a > 2 and a <=4 then writeln("Неудовлетворительно!"); If a > 4 and a <= 6 then writeln("Удовлетворительно!"); If a > 6 and a <= 8 then writeln("Хорошо!"); If a > 8 and a <= 10 then writeln("Отлично!"); End.