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

Question

Информатика

Феопистия

25 ноября, 06:04

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

+4

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