Var b,a,c,kol:integer; begin writeln('введите число в десятичной системе счисления'); readln(a); kol:=0; while(a>=2) do begin c:=a div 2; b:=2*c; b:=a-b; writeln(b); a:=c; if a<2 then writeln(a); if a > 0 then kol:=kol+1; end; writeln('количество 'kol); end.
begin
writeln('введите число в десятичной системе счисления');
readln(a);
kol:=0;
while(a>=2) do begin
c:=a div 2;
b:=2*c;
b:=a-b;
writeln(b);
a:=c;
if a<2 then
writeln(a);
if a > 0 then
kol:=kol+1;
end;
writeln('количество 'kol);
end.