пустяки, дело-то житейское!
эта известная фраза Карлсона)
Ответ:
10
Объяснение:
У нас есть известная часть выражения - (3m + 4n > 66) и неизвестная - (m <= A) \/ (n < A). Если мы подставим такие m илиn, которые дадут истину в первой части, то тогда A может быть любым, а нам надо найти такие m и n, которые дадут ложь. Сделаем первую часть ложной, то есть перевернём её - (3m + 4n <= 66). Уравняем m и n.
3 + 4 <= 66
66 : 7 = 9,4
Нам нужно целое число, берём больше чем 9,4 - это 10.
Ответ: 10.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
В Logisim эта конструкция работает, смотри картинку.
//PascalABC.NET 3.1 сборка 1219
procedure PrintMatrix(a: array[,] of integer);
begin
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
begin
writeln;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
write(a[i, j], ' ');
end;
writeln;
end;
begin
var a := MatrixRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 255);
PrintMatrix(a);
for var i := a.GetLowerBound(0) to (a.GetUpperBound(0) div 2) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
swap(a[i, j], a[a.GetLowerBound(0) + a.GetUpperBound(0) - i, j]);
PrintMatrix(a);
end.