..........................................
Если не хочется думать, можно построить таблицу интинности и потом сравнить её с данной в условии.
![\begin{array}{|c|c|c|c|} x&y&z&x\land y\land z\lor y\lor \lnot z\\ 0&0&0&1\\ 0&0&1&0\\ 0&1&0&1\\ 0&1&1&1\\ 1&0&0&1\\ 1&0&1&0\\ 1&1&0&1\\ 1&1&1&1 \end{array}](https://tex.z-dn.net/?f=%5Cbegin%7Barray%7D%7B%7Cc%7Cc%7Cc%7Cc%7C%7D%0Ax%26y%26z%26x%5Cland+y%5Cland+z%5Clor+y%5Clor+%5Clnot+z%5C%5C%0A0%260%260%261%5C%5C%0A0%260%261%260%5C%5C%0A0%261%260%261%5C%5C%0A0%261%261%261%5C%5C%0A1%260%260%261%5C%5C%0A1%260%261%260%5C%5C%0A1%261%260%261%5C%5C%0A1%261%261%261%0A%5Cend%7Barray%7D)
Оказывается, F(x,y,z) = 0 для двух наборов (x, y, z): (1, 0, 1) и (0, 0, 1). В таблице из условия нули получились на входах 010 и 011. То, что оба раза 0 - это y, то. что оба раза 1 - это z, то, что осталось - это x.
Переменная 1 - y, переменная 2 - z, переменная 3 - x
//Ответ: 133.
//PascalABC.NET
var
i: integer;
begin
i := 0;
while(true) do
begin
if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
i := i + 1;
end;
write(i);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
Writeln(ReadReal('a=')*4,' - периметр')
end.
<u>Пример</u>
a= 12.7
50.8 - периметр