Меню сайта

Задача №2

Дано целое число —N(32 —&lt-= —N -&lt-= —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

Меню раздела
Блок