Меню сайта

Задача №3

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


Program stroka3-

Var a:byte-

b:char-

begin

b:=’C’-

a:=ord(b)-

writeln(‘код предшествующего символа равен­’,a-1)-

writeln(‘код следующего символа равен­’,a+1)-

readln-

end.

Категория: Строки | Дата: 13.01.13

Меню раздела
Блок