<u><em>1110010</em></u><em> - 2⁰*0+2¹*1+2²*0+2³*0+2⁴*0+2⁵*1+2⁶*1=114</em>
<span>чисел - 10000</span>
<span>Каждое тринадцатое число делится на 13</span>
<span> значит надо 10000 поделить на 13, получается 769</span>
<span>теперь числа что делятся на 17, 10000 поделить на 17, получается 588</span>
<span>10000-588-769=8643</span>
1)
var
x, n, i: integer;
flag: boolean;
begin
read(n);
flag := false;
for i := 1 to n do
begin
read(x);
if((x mod 10 <> 1) and (x mod 2 <> 0)) then
begin
flag := true;
break;
end;
end;
if(flag) then write('YES')
else write('NO')
end.
2)
var
x, n, i, count: integer;
begin
count := 0;
read(n);
for i := 1 to n do
begin
read(x);
if((x mod 3 = 0) and (x mod 2 <> 0)) then count := count + 1;
end;
write(count);
end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var b:=a.Pairwise; b.Println;
Writeln('Найдено пар: ',
b.Where(x->(x[0]<0) and x[1].IsEven or
(x[1]<0) and x[0].IsEven).Count)
end.
<u><em>Тестовое решение</em></u>
n= 10
-37 -71 -71 -65 73 -66 -33 -85 62 -92
(-37,-71) (-71,-71) (-71,-65) (-65,73) (73,-66) (-66,-33) (-33,-85) (-85,62) (62,-92)
Найдено пар: 3