Module: زیر برنامه ها: رویه ها و عملکردها - 2


Problem

8/10

توابع منطقی اعداد کامل

Problem

عدد کامل عددی است برابر با مجموع همه مقسوم علیه های آن کوچکتر از خودش (مثلاً عدد 6=1+2+3). برنامه ای بنویسید که یک عدد طبیعی N برداشته و تعیین کند که آیا عدد N عالی است یا خیر. استفاده از  یک تابع برای یافتن مجموع مقسوم علیه های یک عدد و یک تابع بولی برای بررسی اینکه آیا عدد کامل است یا خیر.

ورودی: رشته ورودی حاوی یک عدد طبیعی است N .

خروجی: اگر عدد N – عالی، برنامه باید کلمه 'YES' را خروجی دهد، در غیر این صورت – کلمه 'نه'.

نمونه‌ها <سر> <بدن>
# ورودی خروجی
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!