Hipotenusa
123456789101112131415161718192021222324252627282930313233
use strict;
use warnings;
print "\n---------------Hipotenusa---------------\n";
print "\nInrese el valor del cateto 1\n";
my $cat_1 = <STDIN>;
print "Ingrese el valor del cateto 2\n";
my $cat_2 = <STDIN>;
print "\nLa hipotenusa es =";
print $cat_1**2 + $cat_2**2;
print "\n";
exit;use strict;
use warnings;
print "\n---------------Hipotenusa---------------\n";
print "\nInrese el valor del cateto 1\n";
my $cat_1 = <STDIN>;
print "Ingrese el valor del cateto 2\n";
my $cat_2 = <STDIN>;
print "\nLa hipotenusa es =";
print $cat_1**2 + $cat_2**2;
print "\n";
exit;
Perl
INFO