Module: Sub-rotinas: procedimentos e funções - 2


Problem

8/10

Funções lógicas. Números Perfeitos

Problem

Um número perfeito é um número igual à soma de todos os seus divisores menores que ele mesmo (por exemplo, o número 6=1+2+3). Escreva um programa que receba um número natural N e determine se o número N é perfeito. Usar  uma função para encontrar a soma dos divisores de um número e uma função booleana para verificar se o número é perfeito ou não.

Entrada: A string de entrada contém um número natural N .

Saída: Se um número N – perfeito, o programa deve exibir a palavra 'SIM', caso contrário – a palavra 'NÃO'.

Exemplos
# Entrada Saída
1 28 SIM
2 29 NÃO

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!