Câu1: số hoàn hảo là những số bằng tổng các ước thật sự của nó. Hãy viết chương trình tìm các số hoàn hảo nhỏ hơn 1000 Câu2: Tìm các số trong khoảng t

Program BT;
Var i,j,t,k,t1,i1,n : longint;
Begin
Write (‘a,Cac so hoan hao la : ‘);
t := 0;
t1 :=0;
For i := 0 to 1000 do
Begin
For j := 1 to i-1 do If i mod j = 0 then t := t +j;
If t = i then Write (i,’ ; ‘);
t := 0;
end;
Writeln;
Write (‘b,Cac so do la : ‘);
For i1 := 0 to 999 do
Begin
n := i1;
While n <> 0 do
Begin
k := n mod 10;
t1 := t1 + k;
n := n div 10;
end;
If t1*t1*t1 = i1 then Write (i1,’ ; ‘);
k := 0;
t1 := 0;
end;
end.