Question

разработать программу в которой производится определение номера введённого с клавиатуры символа по кодовой таблице на языке паскаль

Answer 1

Ответ:

uses crt;

var s:char; n:integer;

begin

clrscr;

writeln('Введите символ');

read(s);

n:=ord(s);

writeln(n);

readkey;

end.