Дано целое число —N —(32 —<-= —N -<-= —126). Вывести символ с кодом, равным —N.
Program stroka2-
Var a:byte-
b:char-
begin
writeln (‘введите код сивола- число больше 31 и меньше 127’)-
readln(a)-
b:=Chr(a)-
writeln(b)-
readln-
end.
Категория: Строки |
Дата: 16.01.13