Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Закодируй числовую информацию с помощью цифрового алфавита состоящего из двух знаков цмфр 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.
Работает только с положительными числами