Common Board @ Timus Online Judge

Time Limit !!! Why ??? Help Me

Posted by Lekva 22 Oct 2002 18:11

Var
P,N                                   : LongInt ;

Begin
ReadLn (N) ;
For P := N Downto 1 Do
    If ((2 * N - Sqr (P) + P) Mod (2 * P) = 0)
      And ((2 * N - Sqr (P) + P) > 0) Then
      Begin
        WriteLn ((2 * N - Sqr (P) + P) Div (2 * P), ' ', P) ;
        Break ;
      End ;
End .

tray test (n=3333333) it is tooo big. enathe way

Posted by I am david. Tabo. 22 Oct 2002 18:20

tray test (n=3333333) it is tooo big. enathe way.write something on webboard too

Posted by I am david. Tabo. 22 Oct 2002 18:21