Question

Напишите программу в PascalABC.NET. С клавиатуры вводится символ x. Необходимо определить его код. Например, если x=’R’, то на экране должно быть: «Код символа R равен 82».

Answer 1

var

 r : char;

 begin

   Print('x =');

   read(r);

   Print('Код символа R равен', ord(r));

 end.