Если ваш датчик обнаружил объект - включите

лампочку, иначе - выключите
язык c++
ардуино

1. изображение имеет размеры 1200*1024 пиксель, и нарисовано в два цвета: черный и белый. определите размер файла.

1200 * 1024 * 1 бит = 1228800 бит
1228800 бит /8 бит в байте / 1024 байт в килобайте = 150 килобайт

2. рисунок имеет размеры 1920*1080 пиксель, нарисован с палитрой 16 777 216. определите размер файла.
16 777 216 = 2^24 то есть 24 бит. 24 / 8бит = 3 байта на одну точку.
1920*1080*3 = 6220800 байт = 6075 кб

3.для хранения растрового изображения размером 1024*512 пиксель отвели 256 кба памяти. каково максимально возможное число цветов в палитре изображения?

256 кб = 262144 байт

262144 / 1024*512 = 0,5 байта = 4 бита
в четырех битах можно уложить 2^4 = 16 цветов.

'VBScript

Sub Zadanie()
    ReDim C(5, 6)

    k_pos = 0
    mini = LBound(C, 1)
    minj = LBound(C, 2)
    For i = LBound(C, 1) To UBound(C, 1)
        For j = LBound(C, 2) To UBound(C, 2)
            C(i, j) = Round(Rnd * 10)

            if C(i, j) > 0 then k_pos = k_pos + 1

            if C(i, j) < C(mini, minj) then
                mini = i
                minj = j
            end if
        Next
    Next

    MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub

Call Zadanie()