Знатоки pascal'a, помогите, пожалуйста!

Question

Знатоки pascal'a, помогите, пожалуйста!

Артур Овакимян Ученик (241), закрыт 13 лет назад

Написать программу, которая, получив с клавиатуры код из интервала от 0 до 255, печатает соответствующий этому коду символ.

Answer 1

program ASCII;
{$APPTYPE CONSOLE}
var
i : integer;
chars : array [0..5] of integer;
begin
for i := 1 to 5 do
begin
writeln('Enter your element: ');
readln(chars);
end;
for i := 1 to 5 do
writeln('ASCII code is: ', chr(chars));
readln;
end.

Answer 2

sir.me@list.ru Мастер (2056) 13 лет назад

через if могу написать за денежку ..

Answer 3

var a:integer; begin readln(a); writeln(chr(a)); readln end.

P.S. За if денежку надо снимать.. . ;)