Trả lời chủ đề

6. VCT xuất các số hoàn hảo từ n đến m

[CODE][/B]var x,tu,j,i,n,m:integer;

function ktrahhao(x:integer):boolean;

begin

tu:=0;

ktrahhao:=false;

for i:=1 to x div 2 do

    if x mod i=0 then tu:=i+tu;

if tu=x then ktrahhao:=true;

end;

begin;

write('moi nhap n,m: ');

readln(n,m);

for j:=n to m do

    if ktrahhao(j) then writeln(j);

    readln;

end.

[B][/CODE]