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

Question

Аксентий

4 июля, 18:34

+1

Ответы (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.