Закодируй числовую информацию с помощью цифрового алфавита состоящего из двух знаков цмфр 0,1
Var a:integer; s:String; begin readln(a); while a>0 do begin insert(chr(48+a mod 2),s,1); a:=a div 2; end; writeln(s); readln end. Работает только с положительными числами