% Mr. M

% December 15, 2000

% Page 338, #9

var quotient, remainder:int

var answer:string

answer:=""

put "Enter decimal number between 0 and 255"

get quotient

put "Decimal number: ",quotient

for i:1..8

remainder:=quotient mod 2

if remainder=1 then

answer:=answer+"1"

else

answer:=answer+"0"

end if

quotient:=quotient div 2

end for

put " "

for decreasing i:8..1

put answer(i)..

end for