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&gt-=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.