>> 8 .

3.3.

,

3.3.3.

( char) , , , . 256 , 0 255.

, 32 , , . , 32.

, , , 33 127. 128 .

, : '5', '', '*'.

, .

, ord, .

, chr, .

( string) , . ( ) .

. , . , : , ; ; , .

    program n_5;
      var a: char; kod: integer; b: string;
    begin
      writeln (' ');
      write (' >>');
      readln ();
      kod:=ord();
      b:=chr(kod-1)+a+chr(kod+1);
      writeln (' ', a, ' - ', kod);
      writeln (': ', b)

    end.

 

 

@Mail.ru