Пользуясь дополнительными источниками информации, подготовьте небольшое сообщение о том , на чем и с каких инструментов люди записывали информацию в былые времена.
В глубокой древности - на стенах пещер, на глиняных табличках, восковых дощечках, на скрижалях, потом на папирусе, бересте, пергаменте и т. д. Потом изобрели бумагу. В старину писали стилом, палочками, гусиными перьями, углями. Были ещё какие-то средства. В девятнадцатом веке изобрели пишущие машинки, фотоаппараты - ведь запечатление изображений на фотоплёнках и фотопластинках, это тоже запись информации. Также в 19 столетии появились граммофоны, патефоны, механические пианино, шарманки (музыка - тоже информация) . А уже ближе к нашим временам появились магнтитофоны, видеомагнтитофоны, потом лазерные устройства для записи на диски. Наконец, мобильники, фотоаппараты, компьютеры - это тоже накопители информации, которая хранится на дисках, флэшках, картах памяти и т. д. В общем, сам поищи в интернете, напиши разные варианты для поиска, например, "древние записи информации", "старинные носители информации", "папирус, глина, берестяные грамоты, письмена", "Александрийская библиотека" и т. д.
//Pascal var S: string; i, Count: byte; begin write('Введите строку: '); readln(S); for i := Length(S) downto 1 do if ((S[i] = '3') or (S[i] = '6') or (S[i] = '9')) then begin Count := Count + 1; Delete(s,i,1); end; writeln('Количество цифр кратных трем = ', Count); writeln('Строка после удаления = ', S); end.
//FreePascal/Delphi/PascalABC.NET(v3.3.1590) {$MODE OBJFPC} //В PascalABC.NET можно убрать uses SysUtils; //В PascalABC.NET можно убрать var S: string; i, Count: byte; begin write('Введите строку: '); readln(S); for i := Length(S) downto 1 do try if StrToInt(S[i]) mod 3 = 0 then begin Count := Count + 1; Delete(s,i,1); end; except end; writeln('Количество цифр кратных трем = ', Count); writeln('Строка после удаления = ', S); end.
Const n = 50; // количество чиселvar k: array [1..n] of integer; i, j, n1, n2, minr, a, b: integer; begin writeln(n, ' ', ': d'); a : = random(1000); b : = random(1000); minr : = 10000; for i : = 1 to n do k[i] : = a + random(b); for i : = 1 to n do for j : = 1 to n do if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then begin minr : = abs(k[i] - k[j]); n1 : = i; n2 : = j; end; writeln(n1, ' ', n2); end.
