Ты же вкурсе, что по инфе уже другое огэ будет.
1-ый заход.
Рука.4 символа.четная цепочка.Ррукка.Меняем каждую букву на сл. в алфавите.Ссфлб.
2-ой заход.
5 символов цепочка нечетная.ССфлбм.Меняем каждую букву на сл. в алфавите.Ттхмвн.
В стандартных функциях такого никогда не встречал. Скорее всего это нестандартная процедура или функция, описанная пользователем в начале программы.
¬((А∨В)→¬(В∨С))=¬(А∨В)∨¬(В∨С)=¬А∧¬В∨¬В∧¬С=¬В∧(¬А∨¬С)
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function kolichestvo(c:array [,] of integer):integer;
begin
Result:=0;
var n:=c.RowCount;
for var i:=1 to n-1 do
for var j:=n-i to n-1 do
if c[i,j].IsEven then Result+=1
end;
function massiv:array[,] of integer;
begin
var n:=ReadInteger('Число строк/столбцов: ');
Result:=MatrRandom(n,n,-99,99)
end;
begin
var s:=massiv; s.Println(4); Writeln(4*s.ColCount*'-');
var n:=massiv; n.Println(4); Writeln(4*n.ColCount*'-');
var m:=Sqr(kolichestvo(s)+kolichestvo(n));
Writeln('M=',m)
end.
<u>Пример</u>
Число строк/столбцов: 3
-77 -81 82
-30 -37 39
31 92 12
------------
Число строк/столбцов: 6
66 9 -64 -53 13 -61
16 -72 -25 38 -19 21
40 29 38 77 -38 11
31 76 -83 -17 -58 1
-2 39 -63 84 -35 -42
-23 -75 -57 92 -14 -73
------------------------
M=64
Программы-архиваторы используют <span>для уменьшения объемов файлов</span>