Guest User

Untitled

a guest
Sep 23rd, 2018
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.70 KB | None | 0 0
  1. var a,b,c,d,e,f,g,h,i,j,max:int64;
  2. begin
  3. readln(a);
  4. for b:=1 to a do begin
  5. readln(a);
  6. max:=0;
  7. for j:=100000 to trunc(a) do begin
  8. c:=j div 100000;
  9. d:=j div 10000 mod 10;
  10. e:=j div 1000 mod 10;
  11. f:=j div 100 mod 10;
  12. g:=j div 10 mod 10;
  13. h:=j mod 10;
  14. if (h*100000+g*10000+f*1000+e*100+d*10+c=j) then begin
  15. for i:=100 to 999 do begin
  16. if (j mod i=0) and (j div i<=999) then begin
  17. if (j>max) then
  18. max:=j;
  19. end;
  20. end;
  21. end;
  22. end;
  23. writeln(max);
  24. end;
  25. end.
Add Comment
Please, Sign In to add comment