Raiz Cuadrada y Elevado al Cuadrado

Raiz Cuadrada y Elevado al Cuadrado

Raiz Cuadrada (Sqrt)

Elevado al Cuadrado (Sqr)

CÓDIGO

Program Raiz_elevado_Cuadrado; Uses Crt; Var n:Integer; e:Integer; r:real; Begin ClrScr; writeln('Ingresa un numero'); Readln(n); e:=sqr(n); r:=sqrt(n); writeln('La raiz cuadrada de [',n,'] es : ',r:2:3); writeln('[',n, '] Elevado al cuadrado seria : ',e); writeln; WriteLn('Oprime Enter p/Salir'); Readln; End.