var
c:char;
begin
write('Введите символ ');
readln(c);
writeln('Его номер - ', ord(c));
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
c:char;
begin
write('Введите символ ');
readln(c);
writeln('Его номер - ', ord(c));
end.