Составить програму перевода из 10 в 2 число 100.

yakymov yakymov    1   04.09.2019 06:00    1

Ответы
zhanna241 zhanna241  20.08.2020 21:29
Var

  b:array[1..100001] of integer;

var a,c,i:integer;

begin

c:=0;

write('десятичное число: ');

readln(a);

while a<>0 do

begin

if a mod 2 = 0 then

begin

a:=a div 2;

c:=c+1;

b[c]:=0;

end;

if a mod 2 <>0 then

begin

a:=a div 2;

c:=c+1;

b[c]:=1;

end;

end;

write('двоичное число: ');

for i:=c downto 1 do

write(b[i])
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика