ejercisios de algoritmos

var a,r: numerico

inicio

    cls()

    imprimir("\n calcual la ecua a%")

                 imprimir("\ el valor de a")

    leer(a)

    r=a%

                 imprimir ("\n el valor de la ecua. a% es" , r )

fin

var a,r: numerico

inicio

    cls()

    imprimir("\n calcual la ecua a/")

                 imprimir("\ el valor de a")

    leer(a)

    r=a/

                 imprimir("\n el valor de la ecua. a_/ es" , r )

fin

var a,b,c,d,r: numerico

inicio

    cls()

    imprimir("\n calcual la ecua a/b*c%d")

                 imprimir("\ el valor de a")

    leer(a)

    imprimir("\ el valor de b")

    leer(b)

    imprimir("\ el valor de c")

    leer(c)

    imprimir("\ el valor de d")

    leer(d)

    r=a/b*c%d

    imprimir("\n el valor de la ecua. a/b*c%d es" , r )

fin

var a,b,c,d,e,r: numerico

inicio

    cls()

    imprimir("\n calcual la ecua a/b*c/d+e")

                 imprimir("\ el valor de a")

    leer(a)

    imprimir("\ el valor de b")

    leer(b)

    imprimir("\ el valor de c")

    leer(c)

    imprimir("\ el valor de d")

    leer(d)

    r=a/b*c/d+e

    imprimir("\n el valor de la ecua. a/b*c/d+e es" , r )

fin