Question

Cho em hỏi thuật toán tối ưu để giải bài này ạ:

Trường hợp N < 100000 thì nó làm khá nhanh nhưng trường hợp N gần bằng 1000000 thì máy load hơi chậm ạ

Answer 1

Câu 1: 

uses crt;

var n,i,ln,max,j,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

max:=0;

ln:=1;

for i:=1 to n do 

  begin

t:=0;

for j:=1 to i do 

  if i mod j=0 then t:=t+j;

if ln<t then max:=i;

end;

writeln(max);

readln;

end.