Год обнаружили "бозон хиггса" перевести в двоичную систему счисления, затем добавить 1001(двоичная система) . ответ дайте в десятичной системе счисления

// pascalabc.net 3.3, сборка 1599 от 17.12.2017 // внимание! если программа не работает, обновите версию! function sn(n: integer): integer; // сумма цифр числа begin   n: =abs(n);   result: =0;   while n> 0 do begin       result+=n mod 10;       n: =n div 10       end end; begin   var (n,a,b): =readinteger3('введите n,a,b через пробел: ');   var m: =arrrandom(n,a,b); m.println;   var k: =readinteger('k=');   writeln('найдено чисел: ',m.where(t-> sn(t)=k).count) end. пример введите n,a,b через пробел: 15 -50 60 43 2 42 -26 -34 57 45 44 29 -41 -4 1 -17 38 -19 k= 7 найдено чисел: 2

#include < iostream> using namespace std; int main() {       double x, y, s;       int i, j;       y = 1;       s = 1;       cout < < "x = ";       cin > > x;       for (i = 1; i < = 5; i++) {             for (j = 1; j < = 4; j++)             s = s * (i * j + 1)/2 * x;             y = y * s;             }       cout < < "y = " < < y < < endl;       system("pause");       return 0; }