ejercicios

var
r,x:numerico
inicio
cls()
imprimir ("\n calcule el valor de la ecuacucion raiz 2(x) ")
imprimir ("\n calcule el valor de x ")
leer (x)
r = sqrt(x)
imprimir ("\n el valor de raiz 2(x),r ")
fin

var
r,a,b,c,x:numerico
inicio
cls()
imprimir ("\n calcule el valor de la ecuacion sqrt (4*x)+(4*a*c)/(2*b) ")
imprimir ("\n digite le valor para x ")
leer (x)
imprimir ("\n digite el valor para a ")
leer (a)
imprimir ("\n digite el valor para b ")
leer (b)
imprimir ("\n digite el valor para c ")
leer (c)
r=sqrt (4*x)+(4*a*c)/(2*b)
imprimir ("\n el valor de sqrt (4*x)+(4*a*c)/(2*b),r ")
fin