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