#include <cstdlib>
#include <iostream>
Мы знаем что в 1 мб 1024 кб. В 1 кб 1024 байт. В 1 байте 8 бит
Соответственно в 1 мб 1024*1024*8 = 8388608 бит
Трассировочная таблица:
А1 0
А2 3
А3 8
А4 15
S 0 3 11 26
I 1 2 3 4
Ответ:26
V = 3×3×3 = 27 см3 или м3
{$APPTYPE CONSOLE}
Type
Mass = array of array of integer;
Procedure KP(Var A:Mass; N:integer);
Var i,j,k:integer;
Begin
k:=0;
For j:= 0 to N-1 do
if j mod 2 = 0 then
For i:= 0 to N-1 do
if A[i,j] > 0 then k:=k+1;
WriteLn('k = ',k)
End;
Procedure RND(Var A:Mass; N:integer);
Var i,j:integer;
Begin
Randomize;
SetLength(A,N,N);
For i:= 0 to N-1 do
Begin
For j:= 0 to N-1 do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
End;
Var
A,B:Mass;
N,M:integer;
Begin
Write('N = ');ReadLn(N);
WriteLn('A(',N,',',N,'):');
RND(A,N);
KP(A,N);
Write('M = ');ReadLn(M);
WriteLn('B(',M,',',M,'):');
RND(B,M);
KP(B,M);
ReadLn
End.