<u>// PascalABC.NET 3.3, сборка 1607 от 31.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,10,99);
a.Println(3); Writeln(3*n*'-');
for var i:=0 to n-2 do
for var j:=i+1 to n-1 do a[i,j]:=0;
Writeln('*** Выходной массив ***'); a.Println(3)
end.
1 минута - 60 секунд
1000:60*36=600 (кб можно передать за 36 секунд при скорости 1000 кб/мин)
Нужно делать хорошее, чтобы люди не возненавидели. Надо говорить хорошими для окружающих делами
Ответ:
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.