var a:byte;
i:integer;
CONST ByteSize=8;
BEGIN
readln(a);
for i:=ByteSize-1 downto 0 do
write(((a mod (1 shl (i+1)))-(a mod (1 shl i)))shr i);
END.
Нужна помошь
Составить программу перевода целого числа в двойную систему исчисления.
Как? Если можно то весь цикл... а лучше программу)
Как? Если можно то весь цикл... а лучше программу)