Код Щ = 1xyz0
больше всего походит на Ш 11000, и чтоб было 3 позиции различия, то будет 1xyz0 = 10110
проверим колво различий с остальными
Ц: 01111 vs <span>10110 = 3 различия </span>
Ч: 00001 vs 10110 = 4 различия
Ответ 10110
F=(x∈P )*(x∈A)⇒ (x∈Q)*(x∈A)
F=¬((x∈P)* (x∈A) )+(x∈Q)*(x∈A)
F=¬(x∈P) +¬(x∈A)+(x∈Q)*(x∈A) (¬(x∈P)=x∉P)
F =x∉P + x∉A +x∈Q * x∈A
(Формулы: А⇒В=¬А+В; ¬(А*В)=¬А+¬В; ¬A +A*B =¬A+В)
F =х∉Р +х∉А +x∈Q
512*2+64*0+8*1+1*4 = 1036
343*2+49*0+7*1+1*4 = 697
216*2+36*0+6*1+1*4 = 442
125*2+25*0+5*1+1*4 = 259
Program Task;
Const m = 12;
Var a: Array [1..m] of Integer;
i: Integer;
Function Max(a, b: Integer): Integer;
Begin
If a > b Then
Result := a
Else
Result := b;
End;
Function Min(a, b: Integer): Integer;
Begin
If a < b Then
Result := a
Else
Result := b;
End;
Begin
WriteLn('Введите среднемесячные температуры за год (через пробел)');
For i := 1 To m Do
Read(a[i]);
WriteLn('Самая высокая температура летом равна ', Max(Max(a[6], a[7]), a[8]));
WriteLn('Самая низкая температура зимой равна ', Min(Min(a[11], a[12]), a[1]));
ReadLn;
End.
Var
x, y, z, a, b: real;
begin
readln(x, y, z);
a := x * x * x * sqr(Tan(sqr(x + y))) + z / sqrt(x + z);
b := (y * x * x - z) / (exp(z * x) - 1);
writeln('a=', a);
writeln('b=', b);
end.