PROGRAMA NUMEROS PERFECTOS EN JAVA

class perfecto {
public static void main(String args[]) {
int numero=6;
int sumas=1, menor=2, Mayor=numero;
while ( menor < Mayor ) {
Mayor = numero / menor;
if ( numero % menor == 0 )
sumas += menor;
if ( Mayor != menor && numero % Mayor == 0 )
sumas += Mayor;
menor++;
}
if (sumas == numero) {
System.out.println("El numero "+numero+" es un numero perfecto;");
} else {
System.out.println("El numero "+numero+" no es un numero perfecto;");
}
}
}

PROGRAMA NUMEROS PERFECTOS EN VISUAL BASIC

numero = Val(TextBox1.Text)
sumas = 0
For i = 1 To numero - 1
If numero Mod i = 0 Then sumas = sumas + i
Next
If sumas = numero Then
Label5.Text = Str(numero) + " es un numero perfecto"
Else
Label5.Text = Str(numero) + " no es un numero perfecto"
End If

PROGRAMA NUMEROS PERFECTOS EN PHP

//Este programa crea números perfectos en un rango dado
$me =""; //nos sirve par imprimir mensajes
$inicio = "numero que desees"; //numero donde inica el rango
$fin = "muero que desees"; //numero donde ternina el rango

for ($orsq=$inicio;$orsq<=$fin;$orsq++) //ciclo que nos sirve para recorer el rango deseado
{
$c=0; // contador para almacenar los datos con residuo con valor de cero
for ($b=1;$b<$orsq;$b++) //ciclo for para efectuar la divicion desde el valor de inicio hasta el numero de fin
{
$o=$orsq%$b; //operacion para obtener el residuo si es Cero
if ($o==0) //desicion si secumple
{
$c=$c+$b; //sumara al contador el valor de contador mas el numero que posee residuo cero
}
}
if ($c==$orsq)//si el contador es igual al valor recorido en el primer ciclo entonses es un numero perfecto
{
echo "$orsq es un numero perfecto
"; // visualizar el numero perfecto
}
}

?>

PROGRAMA NUMEROS PERFECTOS EN C

# include
# include

int numeroPerfecto(int num);

main()
{
int numero;

printf("\nIngrese un numero: ");
scanf("%i", &numero);

if(numeroPerfecto(numero))
printf("\nEs Perfecto\n");
else
printf("\nNo es Perfecto\n");
system("pause");
}

int numeroPerfecto(int num)
{
int acum = 0 ;
int i;

for( i = 1; i if( num%i == 0 )
acum += i;
if( acum == num )
return 1;
else
return 0;

}

#include
#include
int main (void)
{
int n,i,resto,suma;

printf ("\nEste programa comprueba si un numero entero es perfecto o no");
printf ("\n\nIntroduce el numero: ");
scanf ("%i",&n);
suma=0;
resto=0;
for (i=1; i {
resto=n%i;
if (resto==0)
suma=suma+i;
}
if (n==suma)
printf ("\nEl numero %i es perfecto\n\n",n);
else
printf ("\nEl numero %i no es perfecto\n\n",n);

system ("pause");
return (0);
}

PROGRAMA NUMEROS PERFECTOS VISUAL BASIC

Module Module1
'Numero perfecto
Sub Main()
Dim Resultado As Integer
For index As Integer = 1 To 8200
Resultado = Perfecto(index)
Console.WriteLine(Resultado)
'Comparo el numero con el total sumado
If Resultado = index Then
Console.WriteLine("El numero " & index & " es PERFECTO: " & Resultado)
Else
Console.WriteLine("El numero " & index & " no es perfecto: " & Resultado)
End If
Next
Console.ReadKey()
End Sub
Function Perfecto(ByVal Numero As Integer) 'Averiguo si el numero es perfecto
Dim Total As Integer
For index As Integer = 1 To Numero - 1
If Numero Mod index = 0 Then
Total = Total + index
End If
Next
Return Total
End Function
End Module


Esto es todo espero que les sirva....saludos!!!!