например,
123
перейдет в 132
var
a,b,c,n:integer;
begin
readln(n);
a:=n div 100;
c:=n mod 10;
b:=n div 10 mod 10;
writeln(a,c,b);
readln;
end.
например,
123
перейдет в 132
var
a,b,c,n:integer;
begin
readln(n);
a:=n div 100;
c:=n mod 10;
b:=n div 10 mod 10;
writeln(a,c,b);
readln;
end.