Найти произведение всех элементов массива, исключая нули. кумир

решение производится путем деления 173 на 2 столбиком, а остаточные цифры (1,0) будут являться решением (справа-налево). т.е. 173/2= 86 (1 в остатке); 86/2=43 (0 в остатке); 43/2=21 (1 в остатке); 21/2=10 (1 в остатке); 10/2=5 (0 в остатке); 5/2=2(1 в остатке);   2/2=1 (0 в остатке и частное "1" тоже идет в общий ответ). в итоге получаем число 173 шестнацетиричной системы = 10101101 в дыоичной системе счисления.

#код на ruby 2.2.3p173 def zadanie(amount_spent, reduction)       amount = [600, 100, 0]       tariff = [1.479, 0.789, 0.456]       amount_spent = amount_spent - reduction       sum = 0       for i in .size             if amount_spent > amount[i]                   sum += (amount_spent - amount[i]) * tariff[i]                   amount_spent = amount[i]             end       end       return sum end # # # примеры применения p zadanie(700, 30) p zadanie(150, 0)

Var n,i: integer;       priz: boolean; begin   write('n = ');   readln(n);   repeat       priz: =true;       for i: =2 to round(sqrt(n)) do       if n mod i=0 then       begin           priz: =false;           break;       end;         if priz then write(n)       else inc(n);   until priz; end. n = 121 127