fork download
  1. #!/usr/bin/perl
  2.  
  3.  
  4.  
  5. $numero = 42;
  6.  
  7. $Raiz = sqrt($numero);
  8. print "A raiz quadrada é ", $Raiz, "\n";
  9.  
  10. $Raiz2 = (pow($numero)*1/3)
  11. print "A raiz cubica é ", $Raiz2, "\n"
  12.  
Not running #stdin #stdout 0s 0KB
stdin
Standard input is empty
stdout
Standard output is empty