2 câu trả lời
uses crt;
var i,j,t:longint;
begin
clrscr;
for i:=1 to 32000 do
begin
t:=0;
for j:=1 to i do if i mod j =0 then inc(t,j);
if t=i*2 then writeln(i);
end;
readln
end.
Program sohoanhao;
Uses Crt;
Var i,j,tong: integer;
Begin
Clrscr;
Write('1,')
For i:= 1 to 32000 do
Begin
Tong:=0;
For j:=i-1 downto 1 do
If i mod j = 0 then
Tong:=tong+j;
If tong = i then write(i,',');
end;
readln
End.
Câu hỏi trong lớp
Xem thêm
