50 всегда ли можно обойтись без циклов?

без цикла можно обойтись только в том случае, когда не нужно многократно исполнять какой-либо набор функций

Предполагается, что восьмеричное число записано, как символьная строка, поскольку максимальная разрядность не была оговорена в . const   m: array['0'..'7'] of string=           ('000','001','010','011','100','101','110','111');   m1: array['1'..'7'] of string=           ('1','10','11','100','101','110','111'); var   s8,s2: string;   i: integer; begin   write('введите восьмеричное число: '); readln(s8);   s2: =m1[s8[1]];   for i: =2 to length(s8) do s2: =s2+m[s8[i]];   writeln('в двоичной системе: ',s2) end. тестовое решение: введите восьмеричное число: 360721 в двоичной системе: 11110000111010001

Def implementetion(a,b)       a=to_bool(a)       b=to_bool(b)       return (not a or b) end def to_bool(s)       if s==true or s==false             return s       end       return s.to_i==0 ? false : true end k=0 for bin in 0.."111111".to_i(2)       s=("000000"+bin.to_s(2))[-       r=implementetion(implementetion(implementetion(implementetion(implementetion(s[0],s[1]),s[2]),s[3]),s[4]),s[5])       if r then             k+=1             p [s]       end end p k p 1+ 2+ 2**3+2**5