что-то типа этого:
<span>const n = 8, m = 8;
var
A: array[1..n,1..m] of integer;
i, j, sum, product: integer;
isnotnull: boolean;
begin
randomize;
writeln('Случайная матрица:');</span><span> for i:=1 to n do begin
for j:=1 to m do begin
A[i,j] := random(51) - 25;
write(A[i,j]:5);
end;
writeln;
end;</span><span> sum := 0;
for i:=1 to n do
if A[i,n-i+1] < 0 then
sum := sum + A[i,n-i+1];
writeln('Сумма отрицательных элементов побочной диагонали = ', sum);</span><span> product := 1;
isnotnull := False;
for i:=1 to n-1 do
for j:=2 to n do
if (j > i) and (A[i,j] <> 0) then begin
isnotnull := True;
product := product * A[i,j];
end;
if isnotnull
writeln('Произведение ненулевых элементов в области выше главной диагонали = ', product)
else
writeln('Ненулевых элементов в области выше главной диагонали нет.', product);</span><span> readln;
end.</span>
64xбайт=256кбайт
64хбайт=256*1024=262144байт
х=262144/64
х=4096байт
х=4 кбайт
F(9) = F(8)+2×F(7), т.к. 9>2 и не кратно 2
F(8) = 2×F(4), т.к. 8>2 и кратно 2
F(4) = 2×F(2), т.к. 4>2 и кратно 2
F(2) = 2, т.к. 2<3
F(4) = 2×F(2) = 2×2 = 4
F(8) = 2×F(4) = 2×4 = 8
F(7) = F(6)+2×F(5), т.к. 7>2 и не кратно 2
F(6) = 2×F(3), т.к. 6>2 и кратно 2
F(3) = F(2)+2×F(1), т.к. 3>2 и не кратно 2
F(1) = 1, т.к. 1<3
F(3) = 2+2×1 = 4
F(5) = F(4)+2×F(3), т.к. 5>2 и не кратно 2
F(5) = 4+2×4 = 12
F(6) = 2×4 = 8
F(7) = 8+2×12 = 32
F(9) = 8+2×32 = 72