A -> B = 4 + B -> D = 3 + D -> E = 2 + E -> D = 5 (4+3+2+5) = 14
A -> B = 4 + B -> C = 6 + C -> E = 4 + E -> D = 5 (4+6+4+5) = 19
Ответ 14
//PascalABC.NET версия 3.2, сборка 1417
//Если программа не запускается, то обновите версию
begin
var m := MatrRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 9);
m.Println();
{1}
Writeln('количество элементов соответствующей строки');
var number := ReadInteger('Введите число, для проверки =');
var a := m.Rows.Select(r -> r.Count(x -> x > number));
a.Println;
{2}
Writeln('Определить,есть ли в данном массиве столбец, в котором имеются одинаковые элементы.');
var b := m.Cols.Select(r -> r.GroupBy(v -> v).Count(g -> g.Count() > 1));
b.Println;
Writeln(b.Any(x -> x > 0));
{3}
Writeln('Заполнить массив');
var n := 2 * Max(m.RowCount, m.ColCount) div 2 + 1;
m := MatrGen(n, n, (i, j)-> ((n - 1 - i - j) * (i - j) > 0) ? 0 : 1);
m.Println();
end.
4096 бит / 8 = 512 байт
512 байт / 1024 = 0,5 Кбайт
начало
a=1,b=1
если a<1000,
тогда
a++; b = b + a; вернуться к условию,
иначе
вывод b
конец