Discussion @ 1118. Nontrivial Numbers @ Timus Online Judge

Why Wa? Where is my gluk?????

Posted by Oleg 29 Oct 2002 13:14

var i,j,i1,j1,s:longint;
    b:record s,num:longint; end;
begin
readln(i1,j1);
if i1>j1 then
begin
s:=j1; j1:=i1; i1:=s;
end;
b.s:=1000000;
b.num:=1;
for i:=j1 downto i1 do
begin
s:=0;
for j:=1 to i div 2 do
    if i mod j =0 then s:=s+j;
if ((b.s/b.num)-(s/i))<0.0001 then
begin
   b.s:=s;
   b.num:=i;
end;
if s=1 then
begin
   writeln(i);
   halt(0);
end;
end;
writeln(b.num);
end.

Now i got TL help? give hints

Posted by Oleg 8 Dec 2002 18:55

>???????????????????????

Posted by Oleg 12 Dec 2002 21:29

> >???????????????????????

Re: AC

Posted by Locomotive 13 Jan 2003 19:40

Oleg I need some hints again!

Thx I done it in best time (0.01) and best memory (24) ! (-)

Posted by Locomotive 22 Apr 2003 16:28

Re: Why Wa? Where is my gluk?????

Posted by randomru 22 Oct 2013 17:35

"gluk" is very fanny word)

Discussion of Problem 1118. Nontrivial Numbers