Question

закодируй числовую информацию с помощью цифрового алфавита состоящего из двух знаков цмфр 0,1

Answer 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.
Работает только с положительными числами