|
|
back to boardShow all messages Hide all messagesvar 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. AC Oleg 12 Dec 2002 21:29 > >??????????????????????? Re: AC Locomotive 13 Jan 2003 19:40 Oleg I need some hints again! "gluk" is very fanny word) |
|
|