Ячейки электронной таблицы заполнили следующим образом: ячейки диапазона b1: cw1 последовательно заполнили нечетными числами от 1 до 199. ячейки диапазона a2: a101 последовательно заполнили четными числами от 2 до 200. в ячейку b2 поместили формулу =остат($a2; b$1) и затем скопировали ячейку a2 во все ячейки диапазона b2: cw101. сколько получилось ячеек со значением 1 в диапазоне b2: cw101? в ответе укажите целое число. примечание. функция остат(a; b) вычисляет остаток от целочисленного деления a на b.

Объяснение:

1.

//  описание функции, ее можно менять

function func(in_x:real):real;

begin

 func:=-2*in_x*in_x*in_x*in_x*in_x + 4;

end;

var

 h:real;

 x:real;

 a, b:real;

 count_otr:integer;

begin

 writeln('Input a = ');

 readln(a);

 writeln('Input b = ');

 readln(b);

 writeln('Input h = ');

 readln(h);

 count_otr:=0;

 x:=a;

 while (x <= b) do begin

   {writeln('x = ', x:3:3, ' f = ',  func(x));}

   if (func(x)<0) then count_otr:=count_otr + 1;

   x:=x+h;

 end;

 writeln(count_otr);

 readln;

end.

2.

function func(in_x:real):real;

begin

 func:=-2*in_x*in_x*in_x*in_x*in_x + 4;

end;

var

 h:real;

 x:real;

 a, b:real;

 f_min, x_min:real;

begin

 writeln('Input a = ');

 readln(a);

 writeln('Input b = ');

 readln(b);

 writeln('Input h = ');

 readln(h);

 x_min:=a;

 f_min:=func(a);

 x:=a+h;

 while (x <= b) do begin

   {writeln('x = ', x:3:3, ' f = ',  func(x));}

   if (func(x)<f_min) then x_min:=x;

   x:=x+h;

 end;

 writeln('x min = ', x_min:3:3, ', f min = ', func(x_min):3:3);

 readln;

end.

Объяснение:

1.

var

 a:array[1..1000] of integer;

 i, n:integer;

 count:integer;

begin

 writeln('Input n = ');

 readln(n);

 for i:=1 to n do begin

   writeln('Input a[', i, '] = ');

   readln(a[i]);

 end;

 count:=0;

 i:=1;

 while (i<=n) do begin

   if (((a[i] mod 3) = 0) and ((a[i] - (a[i] div 10)*10) = 2)) then count:=count + 1;

   i:=i+1;

 end;

 writeln(count);

 readln;

end.

2.

var

 a:array[1..1000] of integer;

 i, n:integer;

 count:integer;

begin

 writeln('Input n = ');

 readln(n);

 for i:=1 to n do begin

   writeln('Input a[', i, '] = ');

   readln(a[i]);

 end;

 count:=0;

 i:=1;

 repeat

   if (((a[i] mod 3) = 0) and ((a[i] - (a[i] div 10)*10) = 2)) then count:=count + 1;

   i:=i+1;

 until (i > n);

 writeln(count);

 readln;

end.