OJ Board

Thanks for your suggestion,but the problem need you to input char less than 10
can you tell me how to modify my program?

Pascal code PROGRAM exp1_7; var a:string; p:char; k,n,m,j,l,o:integer; procedure swap(var a:string;k,i:integer); var t:char; begin t:=a[k];a[k]:=a ;a :=t; end; procedure perm(a:string;k,n:integer); var i:integer; begin if k=n then writeln(a) else for i:=k to n do begin swap(a,k,i); perm(a,k+1,n); en...

Pascal code PROGRAM exp1_7; var a:string; p:char; k,n,m,j,l,o:integer; procedure swap(var a:string;k,i:integer); var t:char; begin t:=a[k];a[k]:=a ;a :=t; end; procedure perm(a:string;k,n:integer); var i:integer; begin if k=n then writeln(a) else for i:=k to n do begin swap(a,k,i); perm(a,k+1,n); en...