Найдите значение выражения: (1/\1)\/(1/\1)\/(1/\0)

ответ: 1

объяснение:

(1/\1)\/(1/\1)\/(1/\0) = 1\/1\/0=1

Значит так: мы создаем массив избыточной длины, куда потом будем записывать рандомные числа. так же мы создаем массив-счетчик b  (у него индексами являются сами числа, а элементами - количество этого числа в массиве а), куда будет присваиваться, сколько раз нам встречается то или иное число (перед этим мы массив обязательно обнулим). в конце мы смотрим максимальное число из массива-счетчика. вуаля! вот пример программы на паскале  abc: var a: array [1..1000000] of integer;   b: array [1..10] of longint;     c: integer;     i,max,n: longint; begin write('введите число элементов массива: '); readln(n);   max: =0;   for i: =1 to 10 do  b[i]: =0;   for i: =1 to n do    begin  a[i]: =random(10)+1;   write(a[i],' ');   b[a[i]]: =b[a[i]]+1  end;   for i: =1 to 10 do  if b[i]> max then  begin  c: =i;   max: =b[i]  end;   writeln;   writeln('чаще всего в массиве встречается число ',c) end.

Var c,i: integer; function inttobin2(value: integer): string; var    i: integer; begin result: = ''; for i: = 0 to trunc(ln(value)/ln(2)) do result: = inttostr((value and (1 shl i) shr i))+result; end;   begin; for c: =41 to 69 do writeln(c,'=',inttobin2(c)); end.вывод: 41=10100142=10101043=10101144=10110045=10110146=10111047=10111148=11000049=11000150=11001051=11001152=11010053=11010154=11011055=11011156=11100057=11100158=11101059=11101160=11110061=11110162=11111063=11111164=100000065=100000166=100001067=100001168=100010069=1000101