Advertisement
Guest User

Untitled

a guest
Jan 10th, 2020
196
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.13 KB | None | 0 0
  1. use strict;
  2. use warnings;
  3.  
  4. my $number = <STDIN>;
  5.  
  6. chomp $number;
  7. for my $i (0...$number - 1) {
  8.     print $number * $i . "\n";
  9. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement