var
  a,b,lcm,gcd,t,s,i:int64;

function pp(x,y:int64):boolean;
var
  temp:int64;
begin
  while x mod y<>0 do begin
    temp:=x mod y;
    x:=y;
    y:=temp;
  end;
  if y=1 then pp:=true else pp:=false;
end;  

begin
  readln(gcd,lcm);
  t:=lcm div gcd;
  i:=trunc(sqrt(t));
  while i>=1 do begin
    if (t mod i=0) and pp(t div i,i) then begin
      a:=i*gcd; b:=(t div i)*gcd;
      writeln(a,' ',b);
      halt;
    end;
    dec(i);
  end;
end. 

• Re:为什么WA? (534) nth_ts 2021-03-07 17:16:14