{ Artix } function dec2bin(x:integer):string; begin if x>1 then begin if x mod 2 = 0 then dec2bin:=dec2bin(x div 2)+'0' else dec2bin:=dec2bin(x div 2)+'1' end else if x=1 then dec2bin:='1' else if x=0 then dec2bin:='0'; end; var x:integer; begin writeln('Input decimal:'); readln(x); writeln(dec2bin(x)); end. На Python тот же самый алгоритм можно сократить до неприлично маленького размера: d = int(input("Decimal digit: ")) n = "" while d > 0: n = str(d % 2) + n d = int(d / 2) print (n)
Справочник алгоритмов v0.05 © 2007-2025 Igor Salnikov aka SunDoctor