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

0 голосов
55 просмотров

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


Информатика (32 баллов) | 55 просмотров
Дан 1 ответ
0 голосов

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

(318 баллов)