Submission #3510715

---

Source Code Expand

var
  x,y,i,j,n:longint;
function zs(x:longint):boolean;
var
  i:longint;
begin
  if x=2 then exit(false);
  for i:=2 to trunc(sqrt(x)) do
    if x mod i=0 then exit(false);
  exit(true);
end;
begin
  readln(n);
  while n<>0 do
  begin
    for i:=1 to n do
    begin
      if (n mod i=0) and (zs(n div i))then begin writeln(n div i);break;end;
    end;
    readln(n);
  end;
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result