Katuvvapk
5 год назад
Составьте программу (для паскаля), позволяющую получить словесное описание школьных отметок (1 - "плохо", 2 - "неудовлетворительно", 3 - "удовлетворительно", 4 - "хорошо", 5 - "отлично")
ОТВЕТЫ
Таня
Oct 24, 2020
Var
O:integer;
Begin
Write('Введите оценку ученика: ');
ReadLn(O);
Case O of
1:Write('плохо');
2:Write('неудовлетворительно');
3:Write('удовлетворительно');
4:Write('хорошо');
5:Write('отлично');
End;
End.
O:integer;
Begin
Write('Введите оценку ученика: ');
ReadLn(O);
Case O of
1:Write('плохо');
2:Write('неудовлетворительно');
3:Write('удовлетворительно');
4:Write('хорошо');
5:Write('отлично');
End;
End.
852
Смежные вопросы:
