Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use strict;
- use warnings;
- my $number = <STDIN>;
- chomp $number;
- for my $i (0...$number - 1) {
- print $number * $i . "\n";
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement