Начертите фигуру, изображенную на рисунке, используя алгоритм рисования отдельного элемента.

Могут: – 31: для числа 111 сумма остатков равна 1+1+1=3, произведение цифр 1*1*1=1 – 813: для числа 339 произведение цифр 3*3*9=81, сумма остатков 1+1+1=3 – 7293: для числа 999 проивзедение цифр 9*9*9=729, сумма остатков 1+1+1=3 остальные не могут.  – 32: если сумма остатков 3, то все цифры  нечетные, их произведение не может быть равно 2. если сумма остатков 2, то одна из цифр четная, произведение не может быть равно 3. – 43: сумма остатков не превышает 3, значит, 3 – сумма остатков (поэтому все цифры нечетные), тогда произведение не будет четному числу 4. – 52: сумма остатков 2, одна из цифр четная, но тогда произведение не будет равно нечетному числу 5 – 132: аналогично, сумма остатков 2, произведение должно быть четным (а оно 13) – 190: аналогично, сумма остатков 0, тогда все цифры четные, но произведение 19

Var   m: array [1 .. 4, 1 .. 4] of integer;   i, j, k, sum: integer;   count: byte; begin   for i : = 1 to 4 do   begin       for j : = 1 to 4 do       begin           m[i, j] : = random(16);           write(m[i, j]: 4);       end;       writeln;   end;   for i : = 1 to 4 do   begin       sum : = 0;       for j : = 1 to 4 do           sum : = sum + m[j, i];       for j : = 1 to 4 do           if (m[j, i] > sum - m[j, i]) then               inc(count);   end;   writeln('количество особых элементов = ', count); end.