Module: Sous-programmes : procédures et fonctions - 2


Problem

8/10

Fonctions logiques. Nombres parfaits

Problem

Un nombre parfait est un nombre égal à la somme de tous ses diviseurs inférieurs à lui-même (par exemple, le nombre 6=1+2+3). Écrivez un programme qui prend un nombre naturel N  et détermine si le nombreN  est parfait. Utilisez  une fonction pour trouver la somme des diviseurs d'un nombre, et une fonction booléenne pour vérifier si le nombre est parfait ou non.

Entrée : La chaîne d'entrée contient un nombre naturel N .

Sortie : Si un nombre N &ndash ; parfait, le programme doit afficher le mot "OUI", sinon – le mot "NON".

Exemples
# Entrée Sortie
1 28 OUI
2 29 NON

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!