Первым великим изобретением древнего Китая считается бумага. Согласно китайским летописям династии Восточная Хань, бумагу изобрел придворный евнух династии Хань — Цай Лун в 105 году н.э. В глубокой древности в Китае до появления бумаги для записей использовали скрученные в свитки полоски из бамбука, свитки из шелка, деревянные и глиняные таблички и т.д. Наиболее же древние китайские тексты или «цзягувэнь» были обнаружены на черепашьих панцирях, которые датируются 2-м тысячелетием до н. э. (династия Шан). В ІІІ веке бумагу уже широко применяли для письма вместо более дорогих традиционных материалов. Разработанная Цай Лунем технология производства бумаги состояла в следующем: кипящая смесь из пеньки, коры тутового дерева, старых рыболовных сетей и тканей превращалась в пульпу, после чего её растирали до пастообразного однородного состояния и смешивали с водой. В смесь погружали сито в деревянной раме из тростника, вычерпывали ситом массу и встряхивали, чтобы жидкость стекла. При этом в сите образовывался тонкий и ровный слой волокнистой массы. Эту массу затем опрокидывали на гладкие доски. Доски с отливками клали одна на другую. Связывали стопку и укладывали сверху груз. Затем затвердевшие и окрепшие под прессом листы снимались с досок и сушились. Изготовленный по такой технологии бумажный лист получался легким, ровным, прочным, менее желтым и более удобным для письма!
Символ-это набор команд состоящих из единиц и нулей,любое слово вводимое тобой или выведонное тебе состоит из этих последовательностей. Например символ I (Я) зашифрован так 0100 1001 <-- 8 этих битов образуют 1 символ,называемым байтом,поэтому любой текст,изображение,видео(там немного другая схема действует),все это всего лишь грандиозный набор команд,разговоры по телефону тоже кодируются из вибрации в набор импульсов и на обратном выходе опять преобразуются в нам всем привычные слова.Любые механизмы,и даже мы с Вами можем передавать информацию,в том числе Азбукой Морзе,даже несколько последовательно сформулированных щелчков пальцев несут в себе информацию,главное ее понять,расшифровать и преобразовать,в видео,аудио,текст,фотографию.
Var a,sum,count:integer;
Begin
Repeat
Read(a);
If a mod 9=0 then begin
Count:=count+1;
Sum:=sum+a;
End;
Until a=0
If sum = 0 then write('no')
Else write(sum/count);
End.