Module: Sottoprogrammi: procedure e funzioni - 2


Problem

8/10

Funzioni logiche. Numeri perfetti

Problem

Un numero perfetto è un numero uguale alla somma di tutti i suoi divisori minori di se stesso (ad esempio, il numero 6=1+2+3). Scrivete un programma che prenda un numero naturale N e determini se il numero N è perfetto. Usa  una funzione per trovare la somma dei divisori di un numero e una funzione booleana per verificare se il numero è perfetto o meno.

Input: la stringa di input contiene un numero naturale N .

Output: Se un numero N – perfetto, il programma dovrebbe emettere la parola 'SÌ', altrimenti – la parola 'NO'.

Esempi
# Input Uscita
1 28 SÌ
2 29 NO

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!