Program cikl_11-
uses crt-
var b : array [1..10] of longint-
j,k,g,n : longint-
begin
clrscr-
write(‘введите десятичное число: ‘)-
readln(n)-
j:=0-k:=0-g:=0-
while n>-=2 do
begin
j:=j+1-k:=k+1-
b[j]:=n mod 2-
n:=n div 2-
end-
g:=n-
for j:=1 to k do
g:=g*10+b[k+1-j]-
write(‘двоичное число= ‘,g)-
readln-
end.