Pascal ABC - Дан символ C. Вывести два символа, первый из которых предшествует символу C в кодовой таблице, а второй...

Question

Символы и их
коды. Формирование строк. Pascal ABC.

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

Юрий · Accepted Answer

var c,d,e:char;
begin
write('c: '); readln(c); d:=c; e:=c; dec(d); inc(e); writeln(d,' ',e)
end.

Александр · Answer

program q171337376;
var
 c: char;
begin
 Write('C = ');
 ReadLn(c);
 WriteLn(Chr(Ord(c) - 1), ' ', Chr(Ord(c) + 1));
end.