Hipotenusa

use strict;
use warnings;

print "\n Cateto 1 \n";
my $cat_1 = <STDIN>;
print "\n Cateto 2 \n";
my $cat_2 = <STDIN>;
print "La hipotenusa es = ";
print $cat_1**2 + $cat_2**2;
print "\n";

exit

Perl

INFO

Quick actions

Hipotenusa

Snippet info