Vehiculos
123456789101112131415161718192021
use strict;
use warnings;
print "\n Velocidad del primer vehículo \n";
my $vel_1 = <STDIN>;
print "\n Velocidad del segundo vehículo \n";
my $vel_2 = <STDIN>;
print "\n Distancia entre los vehículos \n"; #Kilometros
my $dis = <STDIN>;
for my $minutos($dis){
my $resultado = 60 * $dis / $vel_2 - $vel_1;
print "\nTiempo de alcance: ";
print "$resultado minutos";
}
print "\n";
exit
Perl
INFO