===== PascalABC.NET =====
procedure MyFill(a: array[,] of integer);
begin
for var i := 0 to a.RowCount - 1 do
for var j := i to a.ColCount - 1 do
a[i, j] := j - i + 1
end;
begin
var a := MatrFill(6, 6, 0);
MyFill(a);
a.Println(2)
end.
128=2^7 => 7 бит на символ
60*42*32*7=564480 бит=<span>70560 байт=(приблизительно) 69 кб.</span>
uses crt;
var a,b,c,max:integer;
begin
writeln('a,b,c');
readln(a,b,c);
if a>b then max:=a;
if b>c then max:=b;
if c>a then max:=c;
writeln('max=',max);
<span>end.</span>
Ответ: 24.
Если взять иные варианты (25, 28, 26), то ничего выйдет, т.к. они не делятся на 3, а значит и цикла не получится.