Option Explicit On
 
Module Module1
 
    Dim n1, n2, longitud, num, f, resultado As Integer
    Dim strNum As String
    Dim i, j, k As Integer
 
    Sub Main()
 
        Console.WriteLine("Ingrese el primer valor del intervalo: ")
        n1 = Val(Console.ReadLine())
        Console.WriteLine("Ingrese el segundo valor del intervalo: ")
        n2 = Val(Console.ReadLine())
        For i = n1 To n2
            strNum = CStr(i)
            longitud = strNum.Length
            For j = 0 To (longitud - 1)
                num = CInt(CStr(strNum(j)))
                If (num = 0) Or (num = 1) Then
                    f = 1
                Else
                    For k = 1 To num
                        f *= k
                    Next
                End If
                resultado += f
                f = 1
            Next
            If i = resultado Then
                Console.WriteLine(i)
                Console.WriteLine("Es un numero curioso! :)")
            End If
            resultado = 0
        Next
        Console.ReadLine()
    End Sub
 
End Module

using System;
 
namespace fraccion
{
	class MainClass
	{
		public static void factorizar (ref int a,ref int b)
		{
			for(int i=2;i<b+1;i++)if(a%i==0 && b%i==0)
			{
				a/=i;
				b/=i;
				i--;
			}
		}
 
		public static void Main (string[] args)
		{
			string fraccion;
			string[] split;
			int[] valor = new int[2];
 
			Console.WriteLine("Introduzca la fraccion en el formato a/b : ");
			fraccion = Console.ReadLine();
			split = fraccion.Split(char.Parse("/"));
			for(int i=0;i<2;i++) valor[i] = Int32.Parse(split[i]);
 
			if(valor[0]>=valor[1])factorizar(ref valor[0],ref valor[1]);
			else factorizar(ref valor[1],ref valor[0]);
 
			Console.WriteLine("{0}/{1}",valor[0],valor[1]);
		}
	}
}