Module: 서브루틴: 절차 및 기능 - 2

Problem

8/10

완전수는 자신보다 작은 모든 약수의 합과 같은 수입니다(예: 숫자 6=1+2+3). 자연수N 을 받아서 그 수가N 완벽한지 판단하는 프로그램을 작성하세요. 사용 숫자의 약수의 합을 구하는 함수와 숫자가 완벽한지 여부를 확인하는 부울 함수

입력: 입력 문자열에 자연수N 이 포함되어 있습니다.

출력: 숫자N – 완벽하면 프로그램에서 '예'라는 단어를 출력해야 합니다. 그렇지 않으면 – 'NO'라는 단어.

예 <헤드> <일># <몸>

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.