Repet_19-Ver+si+numero+Deficiente+Perfecto+o+Abundante

=__**Averiguar si es un número Deficiente, Perfecto o Abundante**__= >>Leer un Número entero e indicar si es: >>>>Deficiente : Suma de divisores propios < Número >>>>Perfecto  : Suma de divisores propios = Número >>>>Abundante : Suma de divisores propios > Número code format="pascal" PROGRAM REPET_19; VAR iNumero, iDivisor, iSumaDivisores : Integer ; BEGIN Writeln ; REPEAT Write (' Escribe un N£mero entero positivos: ') ; Readln (iNumero) ; UNTIL 0 < iNumero ;

iSumaDivisores := 0 ;

WriteLn ; Write (' Divisores propios: ') ;

FOR iDivisor := 1 TO iNumero - 1 DO      IF iNumero MOD iDivisor = 0 THEN BEGIN iSumaDivisores := iSumaDivisores + iDivisor ; Write (iDivisor: 8) END ;

WriteLn ; WriteLn ('       Suma total: ', iSumaDivisores) ; WriteLn ;

IF iSumaDivisores < iNumero THEN Writeln (' El N£mero es DEFICIENTE') ELSE IF iSumaDivisores = iNumero THEN Writeln (' El N£mero es PERFECTO') ELSE Writeln (' El N£mero es ABUNDANTE') ;

Readln ; END. (* Fin de REPET_19.PAS *) code