* Bạn làm sai mất rồi !
* Trước tiên, mình xin nhắc lại định nghĩa số hoàn hảo: là số có tổng các ước (ngoại trừ chính nó) bằng số đó.
Vd: Số 6 có 3 ước số (trừ chính số 6) là 1, 2, 3 và 1+ 2 + 3= 6
Vậy số 6 là số hoàn hảo.
* Muốn kiểm tra 1 số có phải là số hoàn hảo hay không bạn phải cộng tất cả các ước số của nó lại. Chuơng trình của bạn có thể viêt lại như sau:
Program So_hoan_hao;
Uses Crt;
Const n= 1000; { Kiểm tra số n có phải lá Số hoàn hảo hay không ? }
Var s, i: LongInt;
BEGIN
s:= 1;
For i:= 2 To n- 1 Do
If n mod i= 0 Then
s:= s+ i;
If n= s Then WriteLn('.............')
Else WriteLn('.............');
END.
|