A&(-B\/B) = A&1.
A F
0 0
1 1
1) K=m*n*s=32*64*10=20480 символов.
i=2 байта в Unicode.
I=K*i= 20480*2=40960 B.
2) 1MB = 1024*1024 B.
I= 1/512 MB = 2048 B.
i=I/K=2048/1024=2.
N=2^i=2^2=4 мощность алфавита.
Const
N = 3;
Var
A:Array[1..N,1..N] of integer;
i,j:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
WriteLn('↓↓↓↓↓↓↓↓↓↓↓↓↓');
For i:= 1 to N do
A[i,i]:=5;
For i:= 1 to N do
Begin
For j:= 1 to N do
Write(A[i,j]:3,' ');
WriteLn
End;
End.
После этих строчек:
<em>for i:=0 to 10 do </em>
<em>a[i]:=i-1; </em>
Элементы массива будут от иметь значения -1 до 9.
А после этих:
<em>for i:=1 to 10 do </em>
<span><em>a[i-1]:=a[i]; </em></span>
<span><em>a[10]:=10;
</em></span>
Они будут равны от 1 до 10.
//прога на Pascal`е
<span>var
</span><span> a : longint;
</span><span>begin
</span><span>write ('Введите кол-во минут: ');
</span><span>read(a);
</span><span>write (a, ' минут{ы) - это ', (a div 60) : 3, ' ч. ', (a mod 60) : 2, ' мин.');
</span><span>end.</span>