Помогите составить программу в Pascal ABC Составить программу, которая: a) определяет коды для двух символов, введенных с клавиатуры; b) вывести их на экран в порядке возрастания.
Var a,b:integer; begin; readln(a); readln(b); if a<b then begin; writeln(chr(a)); writeln(chr(b)); end else begin; writeln(chr(b)); writeln(chr(a)); end; end.
Answers & Comments
Verified answer
Var a,b:integer;begin;
readln(a);
readln(b);
if a<b then
begin;
writeln(chr(a));
writeln(chr(b));
end
else
begin;
writeln(chr(b));
writeln(chr(a));
end;
end.