Ответ: 15
'Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.</span>'
Var a:integer;
Begin
read(a);
If a>10 then a:= a div 10
else a:= a+1;
writeln(a);
end.
С помощью данной программы на Паскале преобразуешь коды в символы (или таблиц). <em>Ответ</em><em>:</em>paintbrush.
var a:char; b:integer;
begin
writeln ('Введите код символа');
read(b); // чтение кода
a:=chr(b); // преобразует код в символ
write ('Символ - ',a);
end.