Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
exercicio 2 2019 11 11
'Rextester.Program.Main is the entry point for your code. Don't change it. 'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5 Imports System Imports System.Collections.Generic Imports System.Linq Imports System.Text.RegularExpressions Namespace Rextester Public Module Program Public Sub Main(args() As string) 'Your code goes here dim x as integer=1 dim y as integer=1 dim s as decimal dim sequencia_x as integer=12 dim sequencia_y as integer=12 dim valor_maximo as integer=45 console.writeline( "(" & x & "/" & y & ")") 'processo do until y=valor_maximo s=s+(x/y) x=x+sequencia_x y=y+sequencia_y console.writeline( s ) console.writeline( "(" & x & "/" & y & ")") loop console.writeline( "s=" & s) End Sub End Module End Namespace
run
|
edit
|
history
|
help
0
valor maximo entre 3 numeros
5
CAI Visual Basic - Ej Citas
CAI Visual Basic - Libreria Funciones
CAI Visual Basic - Ej Mundial
a
valor maximo entre 3 numeros
Exercico 3
kompasnaald
Códigos dum boi olhando para um palácio