На 1 странице досье располагается 48х64х8= <span>24576 бит или 3072 или 3Кб. Тогда 1 досье, содержащее 12 страниц имеет объем информации равный 12х3=36 Кб. Все досье занимают 45 Мб или 46080 Кб. Следовательно всего досье 46080 : 36 = 1280</span>

0 0

4 года назад

Ввести целочисленный массив, состоящий из 15 элементов. Определить сумму и разность максимального и минимального элемента. Задач

daya23

Sub abc()

Dim i As Integer, aMax As Integer, aMin As Integer, n As Integer

n = 15

ReDim a(1 To n) As Integer

For i = 1 To n

a(i) = InputBox("Введи A[" & Str(i) & " ] как целое")

Next i

aMax = a(1)

aMin = a(1)

For i = 2 To n

If a(i) > aMax Then aMax = a(i)

If a(i) < aMin Then aMin = a(i)

Next i

MsgBox "Сумма max+min =" & Str(aMax + aMin) & _

" их разность =" & Str(aMax - aMin)

End Sub

0 0

4 года назад

Как сгруппировать слова мышь, клавиатура, сканер, джойстик

НадяХ [21]

Устройства для ввода информации

0 0

4 года назад

Прочитать ещё 2 ответа