<span><em><u> 3 Мб, т.к. 1024*768*4/1024/1024=3Мб </u></em></span>
<span><em><u>где 4 байта - требуется для 32 разряд. </u></em></span>
<span><em><u>в 1 Мб - 1024 кбайт </u></em></span>
<span><em><u>в 1 кб - 1024 байт</u></em></span>
Function func32707155(a As Range) As Integer
Dim i, j, odd_num, even_num, min_max(2) As Integer, r As Range
odd_num = Cells(a.Row, a.Column)
even_num = Cells(a.Row + Sgn(a.Rows.Count - 1), a.Column + Sgn(a.Columns.Count - 1))
j = 0
For Each r In a
j = j + 1
i = j Mod 2
min_max(i) = i * Application.max(odd_num, r) + (1 - i) * Application.min(even_num, r)
Next
func32707155 = min_max(1) + min_max(0)
End Function
Excel VBA
Смотри, дружок, это делается вот так вот.
1) 3072
2) 13
V(2 байт)=2048+х
16:8=2
2х=2048+х
х=2048
x(2 байт)=4096=32768
N=2 байт=16 бит= 2(в 4 степени) бит
=>i=4 бит
х=k*i
=> k=x:i
k=32768:4=8192
Ответ: Количество символов=8192
Program prog;
uses crt;
var a:array[1..10] of integer;
s,i: integer;
begin
clrscr;
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if (a[i] mod 2 = 1) and (a[i]>6) then
s:=s+a[i];
end;
writeln('Сумма чисел s = ', s);
end.