Calculo_hipotenusa_Perl
| Run Settings | |
|---|---|
| Language | Perl |
| Language Version | |
| Run Command |
| Snippet Metadata | |
|---|---|
| Owner | fragosomadera99 |
| Created | |
| Modified | |
| Visibility | Public |
use strict;
use warnings;
print "\n Hipotenusa \n";
print "\n Ingrese el valor del cateto 1 \n";
my $cat_1 = <STDIN>;
print "\n Ingrese el valor del cateto 2 \n";
my $cat_2 = <STDIN>;
print "La hipotenusa es = ";
print $cat_1**2 + $cat_2**2;
print "\n";
exit
| Editor Settings | |
|---|---|
| Theme | |
| Key bindings | |
| Full width | |
| Lines |