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

Доклад о первом носителе информации

👇
Ответ:
никеда
никеда
16.04.2022
Носитель информации - это любое устройство предназначенное для записи и хранения информации.

Примерами носителей могут быть и бумага, или USB-Flash память, также как и глиняная табличка или человеческая ДНК.

Информация тоже бывает разная - это и текст и звук и видео. История носителей информации начинается довольно давно ...

Камни и стены пещер - палеолит (до 40 до 10 тыс. лет до нашей эры)

Первыми носителями информации были, по всей видимости, стены пещер. Наскальные изображения и петроглифы (от греч. petros - камень и glyphe - резьба) изображали животных, охоту и бытовые сцены. На самом деле точно неизвестно, предназначались ли наскальные рисунки для передачи информации, служили простым украшением, совмещали эти функции или вообще нужны были для чего то ещё. Тем не менее это самые старые носители информации, известные сейчас.
4,6(58 оценок)
Открыть все ответы
Ответ:
Петрович05
Петрович05
16.04.2022
// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

procedure ЗаменаЦифры(Исходное,Заменяющее:int64; var Результат:string);
begin
  var ИсхСтрока:=Исходное.ToString;
  var ЗамСтрока:=Заменяющее.ToString;
  Результат:=ИсхСтрока.Replace(ИсхСтрока.ToCharArray.Max,ЗамСтрока)
end;

begin
  var КоличествоЧисел:=ReadInteger('Введите количество чисел для обработки:');
  var ОчередноеИсходное,ОчередноеЗаменяющее:int64;
  var РезультатЗамены:string;
  Loop КоличествоЧисел do begin
    Write('Введите исходное целое число: '); Read(Очередноеисходное);
    Write('Введите целое число для замены: '); Read(ОчередноеЗаменяющее);
    ЗаменаЦифры(ОчередноеИсходное,ОчередноеЗаменяющее,РезультатЗамены);
    Writeln('Результат замены: ',РезультатЗамены)
    end
end.

Пример
Введите количество чисел для обработки: 5
Введите исходное целое число: 15630
Введите целое число для замены: 8
Результат замены: 15830
Введите исходное целое число: 235235
Введите целое число для замены: 11
Результат замены: 23112311
Введите исходное целое число: 6
Введите целое число для замены: 352
Результат замены: 352
Введите исходное целое число: 999
Введите целое число для замены: 88
Результат замены: 888888
Введите исходное целое число: 12307347740
Введите целое число для замены: 131313
Результат замены: 12301313133413131313131340
4,8(90 оценок)
Ответ:
ulchik4572
ulchik4572
16.04.2022
// PascalABC.NET 3.3, сборка 1570 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(11,-29,150); a.Println;
  Writeln('Ср.арифм. положительных: ',a.Where(x->x>0).Average:0:3);
  Writeln('Ср.арифм. отрицательных: ',a.Where(x->x<0).Average:0:3);
  Swap(a[1],a[6]);
  Writeln('Результирующий массив'); a.Println
end.

Пример
91 109 113 119 17 95 41 131 -15 117 -14
Ср.арифм. положительных: 92.556
Ср.арифм. отрицательных: -14.500
Результирующий массив
91 41 113 119 17 95 109 131 -15 117 -14
4,4(90 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ