logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
frid1999YT
frid1999YT
01.04.2020 05:07 •  Информатика

Для кодировки использовали коды 01, 10, 00, 110, 101 какое сообщение невозможно? а) 11000011100 б) 000110111001 в) 101110000110 г) 100100101111

👇
Увидеть ответ
Ответ:
officialmailofp08mfm
ответ: сообщения А и Г невозможны.
4,4(79 оценок)
Открыть все ответы
Ответ:
tanyaxxx15
tanyaxxx15
01.04.2020
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var F,G:file of integer;
  Assign(F,'FFile.dat'); Rewrite(F);
  for var i:=1 to 30 do Write(F,Random(-20,20));
  // Файл F создан и заполнен
  Assign(G,'GFile.dat'); Rewrite(G);
  F.Seek(0);
  var e:integer;
  Print('F:');
  while not F.Eof do begin
    Read(F,e); Print(e);
    if e>0 then Write(G,e)
    end;
  F.Seek(0);
  while not F.Eof do begin
    Read(F,e);
    if e<0 then Write(G,e)
    end;
  F.Seek(0);
  while not F.Eof do begin
    Read(F,e);
    if e=0 then Write(G,e)
    end;
  F.Close;
  Writeln;
  Print('G:');
  G.Seek(0);
  while not G.Eof do begin
    Read(G,e); Print(e)
    end;  
  G.Close
end.

Тестовое решение:
F: -14 15 -16 0 7 0 18 19 -12 -10 6 15 -19 -14 -15 -1 -6 -4 -20 12 10 4 3 16 -14 -20 3 10 -13 -16
G: 15 7 18 19 6 15 12 10 4 3 16 3 10 -14 -16 -12 -10 -19 -14 -15 -1 -6 -4 -20 -14 -20 -13 -16 0 0

Данное решение неоптимально по времени, поскольку файл читается трижды. Можно сделать иной вариант, читая данные за один проход и помещая в две вс структуры памяти отрицательные и нулевые элементы.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var F,G:file of integer;
  Assign(F,'FFile.dat'); Rewrite(F);
  for var i:=1 to 30 do Write(F,Random(-20,20));
  // Файл F создан и заполнен
  Assign(G,'GFile.dat'); Rewrite(G);
  var n:=F.FileSize;
  var neg,zer:array of integer;
  SetLength(neg,n); SetLength(zer,n);
  F.Seek(0);
  var e:integer;
  var ineg:=0;
  var izer:=0;
  Print('F:');
  while not F.Eof do begin
    Read(F,e); Print(e);
    if e>0 then Write(G,e)
    else
      if e<0 then begin neg[ineg]:=e; Inc(ineg) end
      else begin zer[izer]:=e; Inc(izer) end
    end;
  F.Close;
  Writeln;
  SetLength(neg,ineg);
  foreach e in neg do Write(G,e);
  SetLength(zer,izer);
  foreach e in zer do Write(G,e);
  Print('G:');
  G.Seek(0);
  while not G.Eof do begin
    Read(G,e); Print(e)
    end; 
  G.Close
end.

Тестовое решение:
F: 7 5 -14 6 -11 -9 5 -1 5 -5 -7 -1 4 -20 17 -19 0 -3 0 6 20 1 -2 -18 9 20 0 -2 3 -13
G: 7 5 6 5 5 4 17 6 20 1 9 20 3 -14 -11 -9 -1 -5 -7 -1 -20 -19 -3 -2 -18 -2 -13 0 0 0
4,4(59 оценок)
Ответ:
Hause1
Hause1
01.04.2020

1)128000  переводим в байты (128000  / 8 =  16000)

16000 переводим в килобайты (  16000 / 1024 =  15,625)

500килобайт делим на  15,625 получаем 32секунды.

2)512000  переводим в байты (512000  / 8 =  64000)

64000 переводим в килобайты (  64000 / 1024 =  62,5 )

62,5 умножаем на 46секунд, получаем  2875

3)128000  переводим в байты (128000  / 8 =  16000)

16000 переводим в килобайты (16000 / 1024 =  15,625)

1минуту 20сек переводим в секунды (60+20=80)

15,625 килобайт умножаем на 80секунд, получаем  1250килобайт

4,7(8 оценок)
Это интересно:
02.05.2023
Как избавиться от безответной любви...
И
10 советов по тому, как стать хорошим хип-хоп танцором...
С
Как правильно подобрать галстук?...
И
Как танцевать под хаус-музыку: узнайте простые шаги и техники...
С
Как эффективно удалить губную помаду?...
К
Как прекратить получение сообщений на Facebook...
Ф
Как открыть счет в швейцарском банке: необходимые шаги и требования...
К
Как переустановить Google Chrome: простой шаг за шагом гайд...
К
Замена бальзамическому уксусу - натуральные вкусовые альтернативы...
К
Как зарегистрироваться в Snapchat без проблем и быстро?...
Новые ответы от MOGZ: Информатика
darivorobey
darivorobey
01.01.2020
На столе расставили 10 матрешек по росту. две соседние матрешки отличаются по весу в 2 раза. самая маленькая из них весит 1 грамм далее: 2 г, 4 г ,8 г и т.д. сколько...
dinadaybert
dinadaybert
11.02.2022
Определи количество раз выполнения цикла​...
fj8f
fj8f
20.05.2020
НАПИШИТЕ НА ПАЙТОН Напишите функцию tootajad(), при запуске которой происходит заполнение двух массивов: работники[], год_рождения[]. Количество элементов в массивах...
KeKsickON
KeKsickON
14.04.2022
Синформатикой! как это решить: 442- 9c? 1090(10)=442(16) 156(10)=9c(16)...
yankim14
yankim14
10.12.2020
Отметь правильный ответ (вариантов может быть несколько). периферийные устройства — мышь флеш - карта web-камеры монитор плоттер...
STAS228917654321
STAS228917654321
10.12.2020
Зарядки у телефона хватает только на пол дня. три дня назад зарядка держалась довольно долго при большой нагрузке(выход в интернет и т. а сейчас при малом использовании...
sdiana1605
sdiana1605
16.11.2022
Найти объём сообщения содержащее 400 знаков 16 символьного алфавита...
liza5634
liza5634
16.11.2022
Подсчитайте, сколько байт в памяти занимает рисунок размером 20 на 30 пикселов, закодированный в режиме истинного цвета?...
brilovainna
brilovainna
16.11.2022
2вывод таблицы степеней двойки. пользователь вводит натуральное число n. программа выводит значения последовательности (2i)ni=1. таблица представляется набором строк...
VaniLikaK
VaniLikaK
16.11.2022
Вычисление дохода вкладчика. написать функцию, которая вычисляет доход по вкладу. исходными данными для функции являются: величина вклада, процентная ставка (годовая)...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ