Program wanted;
Var S,i,n: word;
Begin
write('nhap n=');
readln(n);
For i:=1 To n Do
If n Mod i=0 Then S := S+i;
If S=2*n Then writeln('n la so dep')
Else writeln('n ko la so dep');
readln
End.
Link phần mềm:Nhấn vào đây để tải
Số hoàn hảo
Program wanted;
Var S,i,n: word;
Begin
write('nhap n=');
readln(n);
For i:=1 To n Do
If n Mod i=0 Then S := S+i;
If S=2*n Then writeln('n la so dep')
Else writeln('n ko la so dep');
readln
End.
0 nhận xét:
Đăng nhận xét