Символьные - 4 урок (образец решения)

1. С клавиатуры вводят символ. Вывести два предыдущих символа.

Решение:

program  Pl;

var  a:char;

begin

  write('Введите символ ');

  Readln(a);

  writeln('Результат=', pred(a),'  ', pred(pred(a))); 

end.

2. С клавиатуры вводят символ. Если введена буква 's', то вывести следующий символ. В противном случае вывести предыдущий символ.

Решение:

program  Pl;

var  a:char;

begin

  write('Введите символ ');

  Readln(a);

  If a= 's'      

       Then writeln('Следующий=', succ(a))

       Else writeln('Предыдущий=', pred(a))  

End.