EJERCICOS!

1- var r,x,a,c,b: numerico
inicio
cls ( )
imprimir("\ncalcule el valor de la ecuacion raiz2+(4*x)*(4*a*c)/(2*b)" )
imprimir("\ndijite el valor para x")
leer(x)
imprimir("\ndijite el valor para a ")
leer(a)
imprimir("\ndijite el valor para c")
leer(c)
imprimir("\ndijite el valor para b ")
leer(b)
r= sqrt (4*x)*(4*a*c)/(2*b)
imprimir ("\nel valor de raiz 2 + (4*x) + (4*a*c)/(2*b)", r)
fin

Ejercicios
2- var r,x,b,y,c,a: numerico
inicio
cls ( )
imprimir("\ncalcule el valor de la ecuacion x^4/b * (x^3*y^2)/36+y/a" )
imprimir("\ndijite el valor para x")
leer(x)
imprimir("\ndijite el valor para b")
leer(b)
imprimir("\ndijite el valor para y")
leer(y)
imprimir("\ndijite el valor para c ")
leer(c)
imprimir("\ndijite el valor para a ")
leer(a)
r= x^4/b * (x^3*y^2)/36+y/a
imprimir ("\nel valor de x^4/b * (x^3*y^2)/36+y/a", r)
fin

-3 var r,a,b,c: numerico
inicio
cls ( )
imprimir("\ncalcule el valor de la ecuacion a%b*(c/2)" )
imprimir("\ndijite el valor para a")
leer(a)
imprimir("\ndijite el valor para ")
leer(b)
imprimir("\ndijite el valor para c")
leer(c)
r= a%b*(c/2)
imprimir ("\nel valor de a%b*(c/2)", r)
fin

4- var r,a,b,c: numerico
inicio
cls ( )
imprimir("\ncalcule el valor de la ecuacion div(a/b)/ (5*c)" )
imprimir("\ndijite el valor para a")
leer(a)
imprimir("\ndijite el valor para b ")
leer(b)
imprimir("\ndijite el valor para c")
leer(c)
r= int (a/b)*(5*c)
imprimir ("\nel valor de int (a/b)/ (5*c)", r)
fin