Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- $a=<>;
- chomp($a);
- $b=<>;
- chomp($b);
- for($i=$a;$i<=$b;$i++){
- if($i%2==0){
- print $i."0 ";
- }
- }
- print "\n";
- for($i=$a;$i<=$b;$i++){
- if($i%2==1){
- print $i."1 ";
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement