Module: Routinen: Prozeduren und Funktionen - 2


Problem

8/10

Logische Funktionen. Perfekte Zahlen

Problem

Die Zahl ist die gleiche wie die Menge aller eigenen kleineren Geschäftsleute (z.B. Nummer 6=1+2+3). Schreiben Sie ein Programm, das eine natürliche Zahl einführtNund bestimmt, ob die ZahlNperfekt. Verwenden Sie die Funktion, um die Anzahl der Ziffern und die logische Funktion zu ermitteln, ob die Zahl perfekt ist oder nicht.

Eingabe:Der Eintrag enthält eine natürliche ZahlN♪

Ausgangsdaten:AnzahlN- Perfekt, das Programm muss das Wort "YES" oder das Wort "NO" nehmen.

Beispiele
NeinEingangsdatenAusgangsdaten
1ANHANGJA
2ANHANGNO

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!