разработать программу в которой производится определение номера введённого с клавиатуры символа по кодовой таблице на языке паскаль
Ответ:
uses crt;
var s:char; n:integer;
begin
clrscr;
writeln('Введите символ');
read(s);
n:=ord(s);
writeln(n);
readkey;
end.