Module: الروتين الفرعي: الإجراءات والوظائف - 2


Problem

8/10

وظائف المنطق. أرقام مثالية

Problem

الرقم المثالي هو رقم يساوي مجموع كل مقسوماته الأقل من نفسه (على سبيل المثال ، الرقم 6 = 1 + 2 + 3). اكتب برنامجًا يأخذ عددًا طبيعيًا & nbsp؛ N & nbsp؛ ويحدد ما إذا كان الرقم & nbsp؛ N & nbsp؛ مثاليًا. استخدام نبسب ؛ دالة لإيجاد مجموع مقسومه على رقم ، ودالة منطقية للتحقق مما إذا كان الرقم مثاليًا أم لا.

الإدخال: على & nbsp؛ سلسلة الإدخال تحتوي على عدد طبيعي & nbsp؛ N & nbsp؛ .

الإخراج: & nbsp؛ إذا كان الرقم & nbsp؛ N & nbsp؛ & ndash؛ ممتاز ، يجب أن يخرج البرنامج الكلمة & # 39 ؛ YES & # 39 ؛ وإلا & ndash؛ كلمة & # 39 ؛ NO & # 39 ؛

أمثلة <الجسم>
# إدخال الإخراج
1 28 نعم
2 29 لا

time 1000 ms
memory 256 Mb
Rules for program design and list of errors in automatic problem checking

Teacher commentary

Insert the missing code snippets
Pascal
Write the program below 
var N: longint;

function SumOfDivisions(n: integer): integer;  
end;

function isPerfectNumber(n: integer): boolean;  
end;

begin
    read(N);  
end.

     

Program check result

To check the solution of the problem, you need to register or log in!