Вопрос

Переменная Y в программе var S:char; Y: integer ; begin read(S); Y:=ord(S); может принимать значения
Адаптивное тестирование - быстрая и точная оценка персонала