Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program gg;
- {Autor: }
- var b1,b2,b3:Word;
- p1,p2,p3,p4,p5:Word;
- begin
- readln(b1,b2,b3);
- p1:=b1 shr 7;
- p2:=(((b1 shl 2)or(b2 shr 14))shl 7)shr 7;
- p3:=(b2 shl 2) shr 7;
- p4:=(((b2 shl 4) or (b3 shr 12)) shl 7) shr 7;
- p5:=(b3 shl 4)shr 7;
- writeln(p1, ' ',p2,' ',p3,' ', p4,' ',p5);
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment