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

Цветное растровое графическое изображение содержит 256 цветов и имеет размер 20х10 точек. Какой информационный объем имеет изображение? ​

👇
Открыть все ответы
Ответ:
alinawsabitova
alinawsabitova
22.08.2021
ПРИЗНАКИ ИНФОРМАЦИОННОГО ОБЩЕСТВА
Осознание обществом приоритетности информации перед другим продуктом деятельности человека.
Первоосновой всех направлений деятельности человека (экономической, производственной, политической, образовательной, научной, творческой, культурной и т.п.) является информация.
Информация же является продуктом деятельности современного человека.
Информация в чистом виде (сама по себе) является предметом купли – продажи.
Равные возможности в доступе к информации всех слоев населения.
Безопасность информационного общества, информации.
Защита интеллектуальной собственности.
Взаимодействие всех структур государства и государств между собой на основе ИКТ.
Управление информационным обществом со стороны государства, общественных организаций.
Кроме положительных моментов прогнозируются и опасные тенденции:
все большее влияние на общество средств массовой информации;
информационные технологиимогут разрушить частную жизнь людей и организаций;
существует проблема отбора качественной и достоверной информации;
многим людям будет трудно адаптироваться к среде информационного общества.
существует опасность разрыва между "информационной элитой" (людьми,
занимающимися разработкой информационных технологий) и потребителями.
4,6(43 оценок)
Ответ:
сонька177
сонька177
22.08.2021
Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.
4,7(42 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ