// Programa: Sumarcuadrados

// Autores: Lidia y Pablo

// Descripción: Este programa calcula la suma de los cuadrados de

// los n primeros números naturales

 

Program Sumarcuadrados

 

      Method Main()

 

            Var m As Integer

            Var n As Integer

            Var suma As Integer

            ConsoleWriteLine("Vamos a calcular la suma de los cuadrados de los n primeros números naturales")

            ConsoleWriteLine("1x1 + 2x2 + 3x3 + 4x4 + ... +(n-1)x(n-1) + nxn")

            n=ConsoleReadInt("Introduce el valor de n = ",True)

            For m=1 To n

                  suma=suma+m*m

            Next

            ConsoleWrite("La suma es igual a "+suma)

           

 

      End Method

 

End Program