Question

Помогите составит программу, которая для символа '=' выводит предыдущий и следующий символы. В Паскале.

Answer 1

USES CRT;
VAR x,y,z:char;

BEGIN
CLRSCR;
   x:='=';    {приравниваем переменной х значение '='}
   y:=Succ('='); {при помощи SUCC приравниваем следующее по порядку}
   z:=Pred('='); {при помощи PRED приравниваем предыдущее значение}

Writeln(z,' ',x,' ',y);

READLN;END.