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

Question

Акся

2 апреля, 08:19

+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.