// PascalABC.Net 3.0, сборка 1064 var a,b:byte; begin Write('Введите два кода символов, большие 31: '); Read(a,b); if (a<32) or (b<32) then Writeln('Код должен быть больше 31') else begin Write('Символы, соответствующие кодам: <'); if a>b then Write(Chr(a),'> и <',Chr(b),'>') else Write(Chr(b),'> и <',Chr(a),'>') end end.
Тестовое решение: Введите два кода символов, большие 31: 42 198 Символы, соответствующие кодам: <Ж> и <*>
var
a,b:byte;
begin
Write('Введите два кода символов, большие 31: '); Read(a,b);
if (a<32) or (b<32) then Writeln('Код должен быть больше 31')
else begin
Write('Символы, соответствующие кодам: <');
if a>b then Write(Chr(a),'> и <',Chr(b),'>')
else Write(Chr(b),'> и <',Chr(a),'>')
end
end.
Тестовое решение:
Введите два кода символов, большие 31: 42 198
Символы, соответствующие кодам: <Ж> и <*>