М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
irror404
irror404
10.06.2021 18:10 •  Информатика

какой минимальный объем памяти в кбайт нужно зарезервировать чтобы можно бы сохранить изображенре с камеры размером 1024*768 при условии, что в изображени может использоваться 64 различных цвета?

👇
Ответ:
rada201
rada201
10.06.2021
Решение:

R = x*y*i\\N = 2^{i} = 64 \\2^{6} = 64i = 6

R = 1024*768*6 = 4718592 бит

R = \frac{4718592}{1024*8} = \frac{4718592}{8192} = 576 кбайт

ответ: 576.
4,6(88 оценок)
Открыть все ответы
Ответ:
Lraaq
Lraaq
10.06.2021
MS DOS QBasic 1.0

DIM n AS INTEGER, m AS INTEGER
CLS
INPUT "n,m=", n, m
IF n < 3 THEN
   PRINT "n<3"
   SYSTEM
END IF
REDIM a(1 TO n, 1 TO m) AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO n
   FOR j = 1 TO m
      a(i, j) = INT(50 * RND)
      PRINT USING "###"; a(i, j);
   NEXT j
   PRINT
NEXT i
PRINT
FOR i = 4 TO n
   FOR j = 1 TO m
      a(i - 1, j) = a(i, j)
   NEXT j
NEXT i
FOR i = 1 TO n - 1
   FOR j = 1 TO m
      PRINT USING "###"; a(i, j);
   NEXT j
   PRINT
NEXT i

Пример

n,m=5,8
 43  6 19 48 44  6 28 10
  5 48 44  1 31 30 25 33
 19 30 46 27 29 34 45  8
 17 37 43  1 37 46 25 45
 48 48 27 21 36 48 44 37

 43  6 19 48 44  6 28 10
  5 48 44  1 31 30 25 33
 17 37 43  1 37 46 25 45
 48 48 27 21 36 48 44 37

Замечание
Поскольку QBasic не поддерживает сохранение содержимого при изменении размеров динамического массива, для упрощения было решено не заниматься созданием вс массива, копирования в него всех строк, кроме последней, затем изменение размера исходного массива и обратное копирование в него. Просто считается, что n уменьшилось на 1.
4,6(34 оценок)
Ответ:
vikulovatanya
vikulovatanya
10.06.2021
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Сумма равна ',Range(1,223,2).Println.Sum)
end.

Результат
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127 129 131 133 135 137 139 141 143 145 147 149 151 153 155 157 159 161 163 165 167 169 171 173 175 177 179 181 183 185 187 189 191 193 195 197 199 201 203 205 207 209 211 213 215 217 219 221 223
Сумма равна 12544
4,8(81 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ