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.
|