Дано символ С. Вывести два символа, первый из которых предшествует символу С в кодовой таблице, а второй – следует за символом С — Pascal(Паскаль)

Program stroka3;

Var
  a: byte;
  b: char;

begin
  b := 'C';
  a := ord(b);
  writeln('код предшествующего символа равен', a - 1);
  writeln('код следующего символа равен', a + 1);
  readln;

end.

Leave a Comment