0
0
Giúp mình với Mn.Cảm ơn nhiều
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
Var n,i,j,t,s: longint ;
kt: boolean;
begin
clrscr;
read(n); t:= 0;
write('Cac uoc: ');
For i := 1 to n do
If n mod i = 0 then
begin
Write(i,' ');
t:= t + i ;
end;
Writeln;
If n mod 2 <> 0 then
begin
Write('Cac so nguyen to la:');
For i := 2 to n do
begin
kt:= true;
For j := 2 to trunc(sqrt(i)) do
If i mod j = 0 then
begin
kt:= false;
break;
end;
If kt = true then Write(i,' ');
end ;
end
else
begin
Write('Cac so hoan hao la: ');
For i := 2 to n do
begin
s:= 0;
For j := 1 to i-1 do
If i mod j = 0 then
s:= s + j ;
If s = i then write(i,' ');
end ;
end ;
writeln ;
writeln('Tong uoc la: ',t);
readln ;
end .
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin