В египетских иероглифах видимые предметы обозначались соответствующими изображениями (рука, рот, палец, и так далее) или символичными знаками (солнце, месяц, царь и так далее). Для глаголов употребляли изображение близких символов: скипетр – господствовать, две ноги – ходить, слизняк, что оставляет черепашку, – выходить и так далее. Если не учитывать некоторые «святые» книги, то можно утверждать, что на папирусах не применялось первичное иероглифическое письмо, с его численными образами; употреблялась более удобная скорописная форма иероглифического письма, так называемое иератическое. Название походит с греческого «священный». Ввел это название также Климент Александрийский. Это священное письмо жрецов развилось приблизительно в III тысячелетии до н.э. и имело составной характер. Возникновение иератического письма связывают с применением папируса как материала для письма. Сначала переписчики копировали формы иероглифов, высеченных на камнях, а со временем стали сокращать и совершенствовать некоторые знаки. Так и выработалась иератическое письмо, которое, хотя и походит от первобытного египетского, по качеству, однако, есть уже новым. Следует заметить, что название этого вида письма «священным» является условным, так как сфера его воздействия была намного шире и охватывала все стороны общественной жизни. С изобретением папируса изменяется не только внешняя форма иероглифов, но и их содержание. Постепенно значение иероглифов как идеографического письма – обозначение понятий, вещей (в некоторых случаях) – заменяется хотя и примитивным, но фонетическим письмом. Для этого египтяне составили алфавит, но в нем совсем не было гласных. Рассказывая с помощью такого письма про окружающие события и вещи, египтяне, однако, столкнулись с трудностями при написании собственных имен. <span>Написать слово, напоминающее какую-то вещь, было просто, но когда оно не ассоциировалось с вещью, дело усложнялось. Тогда, плюс к сотне известных иероглифов, означавших слова, египтяне придумали еще 24 настоящих буквы. Система их создания была очень простой. В египетском языке было очень много коротких слов, например «пуи» - одеяло, «ро» - рот. Согласно новым правилам, рисунок рта также обозначал букву «р». К слову, написанному буквами, египтяне часто прибавляли детерминатив, отображающий написанное. Так, писали «ан» - рыба и сопровождали написанное рисунком. Делалось это не только потому, что читатели не привыкли к письму с буквами, но еще и потому, что много слов писалось одинаково. Без этих своеобразных «ключей» в египетском письме была бы большая путаница. Если бы мы теперь не знали гласных, то нам бы пришлось придумывать много ключей для правильного чтения слов, написанных без них. </span> <span>На каменных стенах египетских храмов и в папирусных сувоях уживаются рядом иероглифы разных значений. Тут и знаки, что отображают целые слова или обозначающие слоги, и настоящие буквы. </span> <span>Позднее, в VII ст. до н.э в северном Египте пробилась другая скорописная форма египетского письма – демотическое (термин ввел Геродот). Ранние образцы этого письма наблюдались в светских памятках еще в X ст. до н.э. С VI ст. до н.э. оно преобразовывается в азбучно-фонетическое, но без гласных букв. Демотическое письмо было проще и легче для быстрого письма. </span> <span>Когда Египет утратил свою независимость, египетское письмо, язык и культура быстро пришли в упадок, попав под греческое и латинское влияние. В III ст. до н.э греческий язык и письмо одерживают окончательную победу. Египтяне начали использовать письмо, базирующееся на греческом алфавите, которое называли коптским.</span>
<em>1. Современное решение, когда можно решить "в одну строку"</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString .Where(d->Pos(d,'13579')>0)).SelectMany(c->c) .Select(c->c.ToDigit).Sum) end.
<u>Пример</u> 252 337 105 S=24
<em>2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)</em>
var m,i,j,s,d:integer; begin s:=0; for i:=1 to 3 do begin Read(m); for j:=1 to 3 do begin d:=m mod 10; if d mod 2<>0 then s:=s+d; m:=m div 10 end end; Writeln('S=',s) end.