Ai biết đoạn code này dùng để làm gì nhỉ? sao lại chỉ chạy đến 81?
var i,j ,t: longint;d: array[0..81] of boolean;
begin
for i:=2 to 81 do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then d:=true;
end;
end.
var i,j ,t: longint;d: array[0..81] of boolean;
begin
for i:=2 to 81 do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then d:=true;
end;
end.
