Обсуждение @ 1118. Нетривиальные числа @ Timus Online Judge

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

Послано Oleg 29 окт 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

Послано Oleg 8 дек 2002 18:55

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

Послано Oleg 12 дек 2002 21:29

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

Re: AC

Послано Locomotive 13 янв 2003 19:40

Oleg I need some hints again!

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

Послано Locomotive 22 апр 2003 16:28

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

Послано randomru 22 окт 2013 17:35

"gluk" is very fanny word)

Обсуждение задачи 1118. Нетривиальные числа