một số có tổng các ước nhỏ hơn nó bằng chính nó gọi là số hoàn chỉnh . VD : 6 có các ước nhỏ hơn nó là 1 , 2 , 3 vì tổng 1+2+3=6 . viết chương trình xét xem 1 số n được nhập từ bàn phím có phải là số hoàn chỉnh hay không
một số có tổng các ước nhỏ hơn nó bằng chính nó gọi là số hoàn chỉnh . VD : 6 có các ước nhỏ hơn nó là 1 , 2 , 3 vì tổng 1+2+3=6 . viết chương trình xét xem 1 số n được nhập từ bàn phím có phải là số hoàn chỉnh hay không
Program so_hoan_chinh;
Uses crt;
Var i,n,S: integer;
Begin
Write ( ‘ nhap n la:’,); readln (n)
S:=0
For i:=1 to n-1 do
If I mod i= 0 then S:=S+i;
If S=n then write (n, ‘ do la so hoan chinh’) else write (n,’ khong phai la so hoan chinh’);
Readln
End.
Program SHH;
Uses crt;
Var n: longint;
Function SHH(a:longint):boolean;
Var i,s:longint;
Begin
s:=0;
For i:=1 to a div 2 do
If a mod i = 0 then s:=s+i;
If a=s then exit(true);
exit(false);
End;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
If SHH(n) then Write(n,’ la so hoan hao’)
Else Write(n,’ khong phai so hoan hao’);
Readln
End.