Advertisement
146f73

Untitled

Mar 17th, 2015
252
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.21 KB | None | 0 0
  1.  
  2. #!/usr/bin/perl
  3.  
  4. $a=<>;
  5. chomp($a);
  6. $b=<>;
  7. chomp($b);
  8.  
  9.  
  10. for($i=$a;$i<=$b;$i++){
  11.   if($i%2==0){
  12.     print $i."0 ";
  13.   }
  14. }
  15. print "\n";
  16. for($i=$a;$i<=$b;$i++){
  17.   if($i%2==1){
  18.     print $i."1 ";
  19.   }
  20. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement