Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/env perl
- print "Escribe un numero de 0/4 : ";
- my $n = <STDIN>;
- if ( $n == 0 ){
- print "Es cero\n";
- } elsif ( $n == 1 ) {
- print "Es uno \n";
- } elsif ( $n == 2 ) {
- print "Es dos \n";
- } elsif ( $n == 3 ) {
- print "Es tres\n";
- } elsif ( $n == 4 ) {
- print "Es cuatro\n";
- } else {
- print "Entre 1 y 4\n";
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement