1. Находим, сколько пикселей будет всего.
256×256 = 65536
2. 16 = 2⁴, поэтому цвет каждого пикселя кодируется 4 битами. 4 бита = 4/8 = 1/2 байта.
3. 1 фото займет 65536×(1/2) = 32768 байт или 32768 / 1024 = 32 Кбайт
4. 2 фото займут 2×32 = 64 Кбайт
Ответ: 64
1) - 1 (=12)
2) - 3 (=11)
3) - 5 (=7)
4) - 2 (=6 )
5) - 4 (=5 в дес)
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
if (ReadReal('введите возраст:')<18) then write('несовершеннолетний') else write('совершеннолетний');
end.
Это невозможно. Т.К в большинстве кодировок нужно минимум 8 бит на символ
Sub Calculate()
Dim coll As Collection
Dim i As Integer
Dim sum As Double
Dim negative As Integer
Dim composition As Integer
negative = 0
composition = 1
Set coll = New Collection
sum = 0
n = CInt(InputBox("Введите количество чисел", "Ввод", "", 2000, 2000))
For i = 1 To n
elmnt = CInt(InputBox(i & " число", "Ввод", "", 2000, 2000))
coll.Add elmnt
sum = sum + elmnt
Next i
For i = 1 To coll.Count
If (coll.Item(i) < 0) Then
negative = negative + 1
End If
If (coll.Item(i) Mod 2 = 1) Then
composition = composition * coll.Item(i)
End If
Next i
MsgBox "Количество отрицательных = " & negative & vbCrLf & "Произведение нечетных = " & composition & vbCrLf, vbOKOnly, "Результаты"
End Sub