Ячейки электронной таблицы заполнили следующим образом: 1. Ячейки диапазона B1:CW1 последовательно заполнили числами от 1 до 100. 2. Ячейки диапазона A2:A101 последовательно заполнили числами от 1 до 100. 3. В ячейку B2 поместили формулу =ОСТАТ((B$1+1)*$A2;10) и затем скопировали ячейку B2 во все ячейки диапазона B2:CW101. Сколько получилось ячеек со значением 0 в диапазоне B2:CW101? В ответе укажите целое число. Примечание. Функция ОСТАТ(A;B) вычисляет остаток от целочисленного деления A на B.

using System;

namespace ConsoleApp4

{

   class Program

   {

       static void Main()

       {

           int attempts = 1;

           Random r = new Random();

           int x = r.Next(11);

           Console.WriteLine("Ok. I made a guess. Now you have 3 attempts.");

           for (int i=0; i < 3; ++i)

           {

               Console.WriteLine($"Attepmt #{attempts}");

               if (int.Parse(Console.ReadLine()) == x)

               {

                   Console.WriteLine($"Congrutialations! You got it!\nIt really was number: {x}\nAttempts passed: {attempts}\nTry again? y/n");

                   if (Console.ReadLine() == "y")

                   {

                       Console.Clear();

                       Main();

                       return;

                   }

                   return;

               }

               Console.WriteLine("Nope.");

               attempts++;

           }

           Console.WriteLine($"You lose.\nIt was: {x}\nTry again? y/n", x);

           if (Console.ReadLine() == "y")

           {

               Console.Clear();

               Main();

               return;

           }

       }

   }

}

Function IsPrime(m: integer): boolean;
var
  i: integer;
  p: boolean;
begin
  p := true;
  for i := 2 to m - 1 do
    if (m mod i) = 0 then p := false;
  IsPrime := p
end;

var
  n, i, j: integer;
  flag: boolean;

begin
  repeat
    Write('Введите натуральное число, большее 2 :');
    Readln(n);
    flag := (n < 2) or (n mod 2 = 1);
    if flag then
      Writeln('Число введено с нарушением, повторите ввод');
  until not flag;
  Writeln('Варианты представления числа в виде суммы двух простых:');
  for i := 1 to n do
    for j := 1 to (n div 2) do
      if (IsPrime(i) and IsPrime(j)) and (i + j = n) then writeln(i, '+', j);
end.

Тестовое решение:

Введите натуральное число, большее 2: 110
Варианты представления числа в виде суммы двух простых:
67+43
73+37
79+31
97+13
103+7
107+3
109+1