PersonalCorpus 版 (精华区)

158990 05:55:1210 Mar 2002
Bozhang,HIT,P.R.China 1120 Pascal Accepted 0.02 sec 49K


var
    n,p,k:integer;
begin
    readln(n); n:=n*2;
    for p:=round(sqrt(n))+1 downto 1 do
        if n mod p=0 then begin
            k:=n div p;
            k:=k-p;
            if odd(k) and (k>0) then begin
                writeln((k+1) div 2,' ',p);
                break;
            end;
        end;
end.