Question

Pascal : Написать программу в которой компьютер запрашивает символ и выдаёт его код.

Answer 1

program s;
uses crt;
var
c : char;
begin
Writeln('Введите символ');
Readln(c);
Writeln('Его код ',Ord(c));
end.