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

Гражданин Меньшиков, автор и правообладатель электронной брошюры «Вокруг света», планировал сотрудничать с компанией «КартаК», занимающиеся тиражированием программных продуктов. Экземпляр электронной брошюры был передан в компанию для ознакомления. При этом был составлен договор о передаче компании «КартаК» имущественных прав на программу. Меньшиков предъявил судебный иск к компании «КартаК», которая осуществила выпуск данного программного продукта. Какое решение вынесет суд? Подумай почему.
в пользу гражданина
в пользу жителей России
в пользу магазина
в пользу компании «КартаК»

👇
Открыть все ответы
Ответ:
zajka23oz3xl9
zajka23oz3xl9
29.07.2022
Const
  n = 50; {Максимальное количество чисел в последовательности}
  t = -77;{Число-ограничитель, означающее конец ввода}

type
  ta = array[1..n] of integer;

var
  a: ta; {массив членов последовательности}
  az: ta; {массив, содержащий номера нулей в последовательности}
  kz: integer; {количество членов в массиве az} 
  i, iz, p, n1, n2: integer;
  flag: boolean;

begin
  {Вводим числа и сразу же отслеживаем номера нулей в последовательности}
  Writeln('Вводите последовательность чисел, окончание ввода по -77');
  i := 0; iz := 0;
  repeat
    Read(p);
    if p <> t then begin
      i := i + 1;
      a[i] := p;
      if p = 0 then begin
        iz := iz + 1;
        az[iz] := i;
      end
    end
  until p = t;
  kz := iz;
  Writeln('Вывод последовательностей');
  {1. До первого встреченного нуля}
  for i := 1 to az[1] - 1 do Write(a[i], ' ');
  Writeln;
  {2. Остальные промежутки} 
  for iz := 1 to kz do
  begin
    for i := az[iz] + 1 to az[iz + 1] - 1 do Write(a[i], ' ');
    Writeln;
  end
end.

Тестовое решение:
Вводите последовательность чисел, окончание ввода по -77
1 2 3 0 5 6 7 0 0 10 11 12 13 0 15 16 17 18 19 20 -77
Вывод последовательностей
1 2 3
5 6 7

10 11 12 13
4,6(26 оценок)
Ответ:
Evgenchee
Evgenchee
29.07.2022
В современном мире роль информатики, средств обработки, передачи, накопления информации неизмеримо возросла. Средства информатики и вычислительной техники сейчас во многом определяют научно-технический потенциал страны, уровень развития ее народного хозяйства, образ жизни и деятельности человека. Еще Ротшильд говорил: «Кто владеет информацией, тот владеет миром». Для целенаправленного использования информации ее необходимо собирать, преобразовывать, передавать, накапливать и систематизировать. Все эти процессы, связанные с определенными операциями над информацией, называются информационными процессами. Получение и преобразование информации является необходимым условием жизнедеятельности любого организма. Живые существа не только воспринимать информацию из окружающей среды с органов чувств, но и обмениваться ею между собой. Человек также воспринимает информацию с органов чувств, а для обмена информацией между людьми используются языки. За время развития человеческого общества таких языков возникло очень много. Прежде всего, это родные языки (русский, татарский, английский и др., на которых говорят многочисленные народы мира. Роль языка для человечества исключительно велика. Без него, без обмена информацией между людьми было бы невозможным возникновение и развитие общества. Информационные процессы характерны не только для живой природы, человека, общества. Человечеством созданы технические устройства – автоматы, работа которых также связана с процессами получения, передачи и хранения информации. Деятельность человека, связанную с процессами получения, преобразования, накопления и передачи информации, называют информационной деятельностью.
4,7(59 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ