PascalABC.NET
Программа считает число нулей стоящих на четных местах в строке, считая первый элемент строки нечетным.
var
t : text;
a,k,i : integer;
begin
assign (t,'File.txt');
reset (t);
i := 0; k := 0;
While not Eof (t) do
begin
i := 0;
While not Eoln (t) do
begin
read (t,a);
if (a = 0) and (i = 1) then
k := k +1;
if i = 0 then
i := 1
else
i := 0;
end;
readln (t);
end;
close (t);
writeln (k);<span>
end.</span>
Решение<span>: применим метод замены независимой переменной для решения интеграла </span><span>x=<span>2√</span>sin(t)<span>=></span>dx=<span>2√</span>cos(t)dt</span>, получаем<span>∫<span><span>x2</span><span><span>2−<span>x2</span></span><span>−−−−−</span>√</span></span>dx=∫<span><span>2<span>sin2</span>(t)</span><span><span>2−2<span>sin2</span>(t)</span><span>−−−−−−−−−−</span>√</span></span><span>2√</span>cos(t)dt=</span><span>=∫<span><span>2<span>sin2</span>(t)</span><span><span>2√</span>cos(t)</span></span><span>2√</span>cos(t)dt=∫2<span>sin2</span>(t)dt=</span>
<span><span>= arcsin(<span>x<span>2√</span></span>)−<span>12</span>sin(2arcsin(<span>x<span>2√</span></span>))+C=</span></span>
Узловой компьютер имеет более высокие права и осуществляет управление сетью, в которую включены ПК пользователей. Для этого на узловом компьютере должна быть установлена специальная ОС с функциями сервера