TOP

Visual Basic Consola - Repetitiva PARA 07




07.  Realizar un algoritmo que visualice la siguiente progresión aritmética:

1 , 5 , 7 , 10 , 13 , 15 , 19 , 20 , 25 , 25.


Imports System.Console
Module Module7
    Dim num
    Dim var = 1
    Sub Main()
        For cont = 1 To 5
            Write(var & " " & cont * 5 & " ")
            var = var + 6
        Next
        ReadLine()
    End Sub
End Module


share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.