Ячейки электронной таблицы заполнили следующим образом:
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.

Объяснение:

var

 x, a, b:integer;

 ras_x_a, ras_x_b, ras_a_b:integer;

 ras_min:integer;

begin

 x:=5;

 a:=1;

 b:=8;

 ras_x_a:=abs(x-a);

 ras_x_b:=abs(x-b);

 ras_a_b:=abs(a-b);

 if ((ras_x_a <=ras_x_b) and (ras_x_a <=ras_a_b)) then

   ras_min:=ras_x_a

 else

   if ((ras_x_b <=ras_x_a) and (ras_x_b <=ras_a_b)) then

   ras_min:=ras_x_b

   else

     if ((ras_a_b <=ras_x_a) and (ras_a_b <=ras_x_b)) then

     ras_min:=ras_a_b;

 writeln(ras_min);

end.

Begin

    writeln('¶¶¶¶¶¶¶¶¶¶1');

    writeln('¶¶¶¶¶¶¶¶¶¶¶¶1');

    writeln('¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('¶¶__¶¶¶__¶¶¶¶_¶¶¶¶¶¶¶¶');

    writeln('¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶¶_¶¶¶¶¶');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶1');

    writeln('¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('_¶¶1¶¶¶¶_¶¶¶¶¶¶¶¶¶¶1');

    writeln('_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶1');

    writeln('__¶¶_¶¶¶¶¶¶_¶¶¶¶');

    writeln('__¶¶¶__¶¶¶¶¶¶_¶¶¶');

    writeln('__¶¶¶___¶__¶¶¶¶¶_¶¶¶¶');

    writeln('___¶¶¶¶¶_¶_¶¶¶¶¶¶_¶¶¶¶');

    writeln('___¶¶_¶¶¶¶¶1¶¶¶¶¶¶¶¶¶¶1');

    writeln('__¶__¶¶¶¶¶¶¶¶1¶¶¶¶¶¶¶¶¶¶¶1');

    writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶1¶¶¶¶¶_¶¶¶¶¶');

    writeln('_¶¶_0__0_¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶__¶¶¶1');

    writeln('_¶¶_¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶1__¶¶¶¶_¶¶¶¶1');

    writeln('_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶_¶¶¶1');

    writeln('__¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶_¶¶¶1');

    writeln('___¶¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶¶1');

    writeln('¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶__¶¶¶¶¶_¶¶¶1');

    writeln('¶¶¶¶¶¶___¶¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('¶_¶¶¶¶¶¶¶¶¶_¶¶¶¶¶_¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('__1¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('__1¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶__¶¶¶¶_¶¶¶1');

    writeln('__1¶¶¶¶¶_¶¶¶¶_¶¶¶¶__¶¶¶¶¶¶¶¶¶¶_¶¶¶_¶¶¶1');

    writeln('___1¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶_¶¶¶¶1');

    writeln('¶_¶¶¶¶¶_¶¶¶¶¶¶¶_¶¶¶¶¶¶¶_¶_¶¶_¶¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶_¶¶¶¶¶¶_¶_¶¶_¶¶1');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶_¶¶¶¶1');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶¶¶¶_¶¶1');

    writeln('___¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶___¶¶¶___¶¶¶¶¶');

    writeln('__¶¶¶¶¶¶¶¶¶¶¶¶¶¶_¶¶¶¶¶¶¶¶');

    writeln('_¶¶¶¶¶¶¶¶¶¶¶¶¶');

    writeln('_¶___¶¶¶¶_¶¶¶¶');

    writeln('¶___¶¶¶¶_¶¶¶¶¶¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶1¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶¶_¶¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶¶');

    writeln('¶¶¶¶_¶¶¶¶¶¶¶¶¶_¶');

    writeln('¶¶¶¶¶¶¶¶¶¶_¶');

    writeln('¶¶¶1¶¶¶¶¶');

    writeln('¶¶1¶¶');

    writeln('¶¶');

    writeln('¶¶');

end.

Подробнее - на -