viết chương trình nhập vào số nguyên dương N. Kiểm tra xem N có phải số hoàn hảo không? Biết số hoàn hảo có tổng các ước( bỏ chính nó) bằng nó
2 câu trả lời
Program thichduockhong ;
Uses crt;
Var n,i,s : longint;
Begin
Write('nhap so nguyen duong n');
Readln(n);
S:=0;
For i:=1 to n-1 do
If (n mod i=0) then s:=s+i;
If s=n then write(n,' la so hoan hao') else write(n,'khong phai la so hoan hao');
Readln
End.
Uses crt;
var n,i,t:integer;
begin
clrscr;
write(‘nhap n: ‘);readln(n);
for i:=1 to n-1 do if n mod i=0 then t:=t+i;
if t=n then write(‘ n la so hoan hao’) else write(‘n ko phai la so hoan hao’);
readln;
end.
