Module: サブルーチン: プロシージャと関数 - 2

Problem

8/10

完全数とは、その数よりも小さいすべての約数の合計に等しい数です (たとえば、数 6=1+2+3)。自然数 N を取り、数 N が完全かどうかを判断するプログラムを作成します。使用数値の約数の合計を求める関数と、数値が完全かどうかをチェックするブール関数です。

入力: 入力文字列に自然数が含まれています N 。

出力: 数値の場合 N –プログラムは 'YES' という単語を出力するはずです。それ以外の場合は – 「いいえ」という言葉。

例 <頭> <本体>

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.