Module: 子例程：过程和函数 - 2


Problem

8/10

逻辑函数。完美数

Problem

完美数是等于所有小于自身的除数之和的数（例如，数字 6=1+2+3）。编写一个程序，接受一个自然数 N 并判断这个数 N 是否是完美的。使用 一个用于计算一个数的除数之和的函数，以及一个用于检查该数是否完美的布尔函数。

输入： 输入字符串包含一个自然数 N 。

输出： 如果一个数字 N –完美，程序应该输出单词“YES”，否则 – “不”这个词。

例子 <头> <日># <正文>

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
输入 输出
1 28 是
2 29 没有
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!