В глубокой древности - на стенах пещер, на глиняных табличках, восковых дощечках, на скрижалях, потом на папирусе, бересте, пергаменте и т. д. Потом изобрели бумагу. В старину писали стилом, палочками, гусиными перьями, углями. Были ещё какие-то средства. В девятнадцатом веке изобрели пишущие машинки, фотоаппараты - ведь запечатление изображений на фотоплёнках и фотопластинках, это тоже запись информации. Также в 19 столетии появились граммофоны, патефоны, механические пианино, шарманки (музыка - тоже информация) . А уже ближе к нашим временам появились магнтитофоны, видеомагнтитофоны, потом лазерные устройства для записи на диски. Наконец, мобильники, фотоаппараты, компьютеры - это тоже накопители информации, которая хранится на дисках, флэшках, картах памяти и т. д. В общем, сам поищи в интернете, напиши разные варианты для поиска, например, "древние способы записи информации", "старинные носители информации", "папирус, глина, берестяные грамоты, письмена", "Александрийская библиотека" и т. д.
Вот ещё:
Одной из первых форм письма, являлась настенная и наскальная живопись. В этом случае древние люди использовали в качестве материала для письма уголь и в основном писали и рисовали на скалах. Во времена развития Шумерской цивилизации, древние Шумеры писали на мокрых глиняных табличках при помощи твердого предмета, в основном используя для этого кости животных или деревянные палочки. В древнем Египте писали на папирусе при помощи кисти из тростника, которой и наносили иероглифы. Помимо папируса, используя для этого деревянные дощечки и каменные здания.
Нашел 2 ошибки в 4- строке и 7- строке, объясняю на примере а=15, b=26 как я понял по данным задачи К больше или равно А то есть начальное значение S = A, вторую ошибку можно решить просто поменяв местами операторы 7-ой и 8-ой строки(чтобы сначала программа суммировала S=15+15 а потом уже 30+16,46+18...пока S<B а в задаче делается так 16+1,16+17, 30+18,...) в общем: var a, b, s, k: integer;begin read(a,b); s := a;<----- k := a; while s < b do begins := s+k;<------k := k+1;<----end;writeln(k)end.
Смотрите. Тут правда есть немного лишнего. Противоположные стороны всё таки проверять не надо. Хватит 4х углов. Но текст комментирован, лишнее можно убрать. поясняющих картинок нет. но вопрос и так слишком долго живёт без ответа. Мне казалось срок жизни 2-3 дня максимум, а тут 5 дней минуло. Если что, отправляйте на исправление. дома дорисую. Главное программа работает. Правда есть подозрения, что не во всех Паскалях (как они относятся к объявлению массива массивов?) Это был Free Pascal Compiler version 2.6.4 [2014/04/20] for i386 В версии 3.0.0. думаю, тоже сработает
P.S.Добавил возможные варианты (не все, ясное дело) расположения точек.
