Фотографию размером 1280*1024 сохранили на компьютере. Для хранения информации о цвете использовали 8 бит. Определите размер получившегося файла (в Кбайтах В качестве ответа укажите только число. Единицы измерения писать не нужно.

Размер файла определим по формуле:

I=i*k, где i- глубина цвета (бит), k- количество пикселей

Результат I будет в битах, разделив на (8*1024), получаем результат в Кбайт  

I=8*1280*1024/(8*1024)=1280 Кбайт

ответ: 1280

Объяснение:

Sub z()
    Range(Cells(1, 1), Cells(100, 100)).Clear
    n1=5
    n2=3
    n3=4

    k = 1
    A = InitMatrix(n1, k, 1)
    k = k + n1 + 2
    B = InitMatrix(n2, k, 1)
    k = k + n2 + 2
    C = InitMatrix(n3, k, 1)

End Sub

Function InitMatrix(n, cx, cy)
    ReDim A(n, n)
    For i = LBound(A, 1) To UBound(A, 1)
        For j = LBound(A, 2) To UBound(A, 2)
            A(i, j) = Rnd * 200 - 100
            Cells(cx + i, cy + j) = A(i, j)
        Next
    Next

    Cells(cx, cy + n + 1) = "PositiveAverage ="
    Cells(cx, cy + n + 2) = PositiveAverage(A)

    InitMatrix = A
End Function

Function PositiveAverage(A)
    For i = LBound(A, 1) To UBound(A, 1)
        For j = LBound(A, 2) To UBound(A, 2)
            If A(i, j) > 0 Then
                s = s + A(i, j)
                k = k + 1
            End If
        Next
    Next

    PositiveAverage = s / k
End Function

Const
    n = 100;

var
    i, neg_k, pos_k, pos_s, neg_p: integer;
    a: array[1..n] of integer;

begin
    for i := 1 to n do
    begin
        a[i] := random(10 + 50) - 10;
        write(a[i], ' ');
    end;
    writeln();
    
    neg_p := 1;
    for i := 1 to n do
        if a[i] > 0 then begin
            pos_k := pos_k + 1;
            pos_s := pos_s + a[i];
        end
        else if a[i] < 0 then begin
            neg_k := neg_k + 1;
            neg_p := neg_p * a[i];
        end;
    writeln('Positive: ', pos_k, ' ', pos_s);
    writeln('Negative: ', neg_k, ' ', neg_p);
end.