Составьте программу (для паскаля), позволяющую получить словесное описание школьных отметок (1 - "плохо", 2 - "неудовлетворительно", 3 - "удовлетворительно", 4 - "хорошо", 5 - "отлично")

Question

Информатика

Надеха

8 июля, 20:18

Составьте программу (для паскаля), позволяющую получить словесное описание школьных отметок (1 - "плохо", 2 - "неудовлетворительно", 3 - "удовлетворительно", 4 - "хорошо", 5 - "отлично")

+1

Ответы (1)

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

Маруля · Answer 1

Var

O:integer;

Begin

Write ('Введите оценку ученика: ');

ReadLn (O);

Case O of

1:Write ('плохо');

2:Write ('неудовлетворительно');

3:Write ('удовлетворительно');

4:Write ('хорошо');

5:Write ('отлично');

End;

End.