В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
karis1
karis1
11.03.2020 10:56 •  Информатика

После преобразования растрового 256-цветного графического файла в чёрно-белый формат( 2 цвета) его размер уменьшился на 7кбайт. Каков был размер исходного файла в Кбайтах можно ответ ​

Показать ответ
Ответ:
bessmertny69
bessmertny69
22.03.2021 08:20

1. Что такое носитель? (Б) Материальная среда, используемая для записи и хранения информации

2. Носитель, имеющий наиболее массовый употребление – это (Г) Бумага

3. В каком году Александр Белл изобрел телефон? (В) 1876 г.

4. Кто создал теорию информации? (Б) К. Шеннон

5. Что такое избыточность кода? (В) Многократное повторение передаваемых данных -- неудачный ответ. Скорее многократное повторение - это один из добавить избыточность кода, есть и другие

6. Какие средства связи используются в компьютерных сетях? (Б) Радиосвязь -- есть и другие, конечно

7. Вместимость – это (А) Плотность хранения данных -- самый удачный вариант из предложенных, но всё же это не плотность хранения, а количество хранимой информации

8. Где появилась бумага? (А) В Китае

9. В каком году возникла теория связи? - нет верного ответа. Обычно упоминают 1948 год, когда была опубликована работа Шеннона "Математическая теория связи"

10. Винчестер компьютера – это (А) Пакет магнитных дисков, надетых на общую ось

0,0(0 оценок)
Ответ:
ivan497
ivan497
23.06.2022 01:05
Var
  a: array [1..10] of byte;
  i, k, n, t, x, max: byte;
  //процедура вывода массива
procedure WriteA();
var i : byte;
begin  for i := 1 to 10 do begin
    write(a[i], chr(32));
  end;
  writeln();
end;
//основная процедура
begin 
Randomize;
  for i := 1 to 10 do begin
    a[i] := random(100);
  end;
  WriteA();
  writeln('');
  n := 10;
  while n > 1 do begin
    for i := n downto 1 do begin
      if a[i] > max then begin max := a[i]; x := i end;
    end;
    t := a[n];
    a[n] := max;
    a[x] := t;
    dec(n);
    max := 0;
    WriteA();
  end;
  writeln('');
  WriteA();
end.

- Pascal ABC.NET, массив из 10 случайных чисел до 100 типа byte
- Результат работы программы следующий:

43 77 72 39 60 99 44 65 72 58
 
43 77 72 39 60 58 44 65 72 99
43 72 72 39 60 58 44 65 77 99
43 72 65 39 60 58 44 72 77 99
43 44 65 39 60 58 72 72 77 99
43 44 58 39 60 65 72 72 77 99
43 44 58 39 60 65 72 72 77 99
43 44 39 58 60 65 72 72 77 99
43 39 44 58 60 65 72 72 77 99
39 43 44 58 60 65 72 72 77 99
 
39 43 44 58 60 65 72 72 77 99 
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота