karlangadas

word bits

Sep 3rd, 2015
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. program gg;
  2. {Autor: }
  3.  
  4. var b1,b2,b3:Word;
  5. p1,p2,p3,p4,p5:Word;
  6.  
  7. begin
  8. readln(b1,b2,b3);
  9. p1:=b1 shr 7;
  10. p2:=(((b1 shl 2)or(b2 shr 14))shl 7)shr 7;
  11. p3:=(b2 shl 2) shr 7;
  12. p4:=(((b2 shl 4) or (b3 shr 12)) shl 7) shr 7;
  13. p5:=(b3 shl 4)shr 7;
  14. writeln(p1, ' ',p2,' ',p3,' ', p4,' ',p5);
  15. readln;
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment