Решаем задачи Абрамян на Паскале. String1

String1. Дан символ $$C$$. Вывести его код (то есть номер в кодовой таблице).

Решение:

program String1;
var
  C:Char;

begin
 Write('C:');
 readln (C);
 Writeln('C:',ord(C));
end.

program String1;

var

C:Char;

begin

Write('C:');

readln (C);

Writeln('C:',ord(C));

end.

Другие задачи из раздела String можно посмотреть здесь.