Укасі є монети номіналом 3, 5 та 10крб. скількома способами касир може видати покупцеві решту на деяку суму nскласти програму)​

// pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! function mynum(a: array of integer; lim: integer): =a.where(x-> x< lim).count; begin   var p: =arrrandom(readinteger('n=',99); p.println;   var k: =readinteger('введите границу отсечения элементов: ');   writeln('количество элементов, меньших ',k,', равно ',mynum(p,k)) end. пример n= 17 -50 -52 -98 1 99 27 -44 70 -65 -22 -64 48 91 3 -69 -69 52 введите границу отсечения элементов: 23 количество элементов, меньших 23, равно 11

Заменим символы операций на более привычные (логическое сложение на сложение, логическое умножение - на умножение), но будем помнить, что все же это не арифметика, хотя и тут умножение "старше" сложения и выполняется первым. x=19+17*13+22*14 1) 17₁₀*13₁₀ 17₁₀ = 10001₂; 13₁₀=01101₂ правила умножения поразрядно: 1*1=1, иначе 0   10001 *01101   00001 = 1₂ 2) 19₁₀+1₂ 19₁₀=10011₂ правила сложения поразрядно: 0+0=0, иначе 1   10011 +00001   10011 3) 22₁₀*14₁₀ 22₁₀=10110₂; 14₁₀=01110₂   10110 *01110   00110 4) 10011₂+00110₂   10011 +00110   10111₂ = 23₁₀