Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var a,b,c,d,e,f,g,h,i,j,max:int64;
- begin
- readln(a);
- for b:=1 to a do begin
- readln(a);
- max:=0;
- for j:=100000 to trunc(a) do begin
- c:=j div 100000;
- d:=j div 10000 mod 10;
- e:=j div 1000 mod 10;
- f:=j div 100 mod 10;
- g:=j div 10 mod 10;
- h:=j mod 10;
- if (h*100000+g*10000+f*1000+e*100+d*10+c=j) then begin
- for i:=100 to 999 do begin
- if (j mod i=0) and (j div i<=999) then begin
- if (j>max) then
- max:=j;
- end;
- end;
- end;
- end;
- writeln(max);
- end;
- end.
Add Comment
Please, Sign In to add comment