|
|
back to boardWhy 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 >??????????????????????? AC Posted by Oleg 12 Dec 2002 21:29 > >??????????????????????? Re: AC Oleg I need some hints again! Thx I done it in best time (0.01) and best memory (24) ! (-) Re: Why Wa? Where is my gluk????? "gluk" is very fanny word) |
|
|