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

Question

Иоанна

20 июня, 19:23

+2

Ответы (1)

Знаешь ответ?

Вишута · Answer 1

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