DEBER 3

Ejercicio 1
Imprimir los números pares desde N (siendo N un número par que se lee) en forma descendente hasta 2. Con lazo Para y lazo mientras.

PROGRAMA

Con lazo para

Module Module1

SubMain()
Dim num As Integer
Dim r As Char
Dim par As Integer

Do
Console.WriteLine()
Console.WriteLine(" ** Programa que imprime los numero paresdesde N hasta 2 **")
Console.WriteLine()
Console.WriteLine("Ingrese un numero: ")
num = Console.ReadLine()
par = num Mod 2
If par = 0 Mod 2Then
For x = num To 2 Step -2
Console.WriteLine("los numeros son: " & x)
Next x
Else
Console.WriteLine("El numero no espar")
End If
Console.WriteLine("Desea ejecutar otra vez: SI <> NO <>: ")
r = Console.ReadLine()

Loop Until (r = "n" Or r = "N")Console.ReadKey()
End Sub

End Module

Con lazo mientras

PROGRAMA
Module Module1

Sub Main()
Dim num As Integer
Dim r As Char
Dim par As Integer

DoConsole.WriteLine()
Console.WriteLine(" *** Programa que imprime los numero pares desde N hasta 2 ***")
Console.WriteLine()
Console.WriteLine("Ingrese un numero: ")num = Console.ReadLine()
par = num Mod 2
If par = 0 Then
While (num >= 2)
Console.WriteLine("Los numeros son " & num)
num= num - 2
End While
Else
Console.WriteLine("El numero no es par")
End If
Console.WriteLine("Desea ejecutar otra vez: SI <> NO<>: ")
r = Console.ReadLine()

Loop Until (r = "n" Or r = "N")

Console.ReadKey()
End Sub

End Module


Ejercicio 2
Calcular el factorial de 10 números diferentes...

Leer documento completo

Regístrate para leer el documento completo.