Есть директор а у директора есть брат сергей ау серегея нету брата. как такое може быть?

Директор это женщина.

Директор это- сестра Сергея

ответ: 13

Объяснение:

задача на оценку + пример

оценка:

для каждого человека можно выбрать 2-ух - которых нельзя вставить в дружеское жюри вместе с ним (может быть, что 1 это только 1 человек). => если для каждого 2 этих человека - разные мы можем взять ровно 1/3 от всех людей = 13. => ответ >= 13

пример (что 13 - макс).

возьмем 3 -х людей. 1 критикует 2-го, 2-ой 3-го, 3-ий первого. И разобьем 39 ученых на 13 таких троек, получим, что из каждой тройки можем взять только 1 ученого =>макс ученых 13

но данное количество учёных в жюри может быть верным, только в данной последовательности

Задача №1

var a:array [1..20] of integer;     
i:integer;
begin 
randomize;   
for i:=1 to 20 do begin   
a[i]:=random(19-(-10)+1)+-10;     
write (a[i],' ');           
end;
end.

Задача №2

var a:array [1..20] of integer; 
i:integer; 
begin 
writeln('Введите числа в интервале [-20;29]'); 
for i:=1 to 10 do read(a[i]); 
for i:=1 to 10 do 
if (a[i]>-29) and (a[i]<20) then write(a[i],' '); 
end.

Задача №3

var a:array [1..20] of integer; 
i,sum:integer; 
begin 
randomize; 
sum:=0; 
for i:=1 to 20 do 
begin 
a[i]:=random(19-(-10)+1)+-10; 
write (a[i],' '); 
if a[i]>0 then sum:=sum+1; 
end; 
writeln('Количество положительных элементов массива = ', sum); 
end.

Задача №4

var a:array [1..20] of integer; 
i:integer; 
begin 
randomize; 
for i:=1 to 20 do 
begin 
a[i]:=random(19-(-10)+1)+-10; 
if a[i]<0 then a[i]:=0; 
write (a[i],' '); 
end; 
end.

Задача №5

var a:array [1..20] of integer; 
i,sum:integer; 
begin 
randomize; 
sum:=0; 
for i:=1 to 20 do 
begin 
a[i]:=random(19-(-10)+1)+-10; 
write (a[i],' '); 
if a[i]>0 then sum:=sum+a[i]; 
end; 
writeln('Сумма положительных элементов массива = ', sum); 
end.