• Lenguaje

    FreeBasic/QBasic

  • Descripción

    Lea 4 variables numéricas y calcule e imprima la suma, su media aritmética y producto.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim a As Double, b As Double, c As Double, d As Double, media As Double
Dim producto As Double, suma As Double
Input "Ingresa el valor de a: ", a
Input "Ingresa el valor de b: ", b
Input "Ingresa el valor de c: ", c
Input "Ingresa el valor de d: ", d
suma=a+b+c+d
media=suma/4
producto=a*b*c*d
Print "Valor de media: " & media
Print "Valor de producto: " & producto
Print "Valor de suma: " & suma
Print
Shell ("pause")