<span>Культура несет в себе образ человека, она являет, показывает этот образ человеку. Культура - зеркало, в котором человек себя видит и в котором он себя узнает. Заметим, что человек оказался единственным животным, который узнает себя в зеркале, более того у которого появилась настоятельная потребность видеть себя со стороны. Отделив себя от природы, он отделил себя и от себя, получил способность видеть себя со стороны и относиться к себе самому. В этой способности - трансцендировать себя самого - заложена возможность развития образования как необходимого атрибута всякой культуры. Вся культура нацелена на формирование человека, способного в своих действиях воплотить накопленный сообществом опыт жизнедеятельности, в этом заключена сущность культуры, этим определена ее структура. Но эту свою сущность культура выражает еще и тем, что она формирует специальную деятельность, самой сутью которой становится выражение sensus stricto предназначения культуры.Этой деятельностью стала деятельность педагогическая (от др. греч. paidagоgeо - вести детей, воспитывать детей). Строго говоря, в культуре такой деятельностью вначале было мудрствование, которое выделяло в культуре самые сокровенные смыслы, самые значимые для сообщества ценности, самые важные утверждения.Сентенции, притчи, мифы и рассказы самых опытных и умудренных жизнью людей были квинтэссенцией культуры народа, к которым приобщались новые поколения, проходя в древнейших сообществах обряды инициации. Затем мудрствование превратилось в философию, которая обсуждала вечные мировоззренческие вопросы человеческой жизни и конечные основания культуры, что было важно для понимания образа человека, но что не было непосредственно направлено на формирование человека по этому образу. И тогда возникла педагогика, которая сначала означала просто сопровождение детей в школу, а уж потом и сопровождение их в культуру.<span>Единое мудрствование, которое некогда соединяло в себе и самосознание культуры и приобщение к ней, распалось на философию и педагогику, что привело к отделению непосредственной работы в культуре, непосредственной жизни в ее смыслах и ценностях от обучения ей.</span></span>
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
Begin var n:= readlnInteger('n ='); var a:= ReadlnString.ToIntegers; SetLength(a, n); var k:= a.where(t -> (t>100)and(t mod 7 = 0)).Count; Writeln(k); end.
Выглядит просто :) И так... Допустим переменная 'a' = 15, заходим в цикл. Отнимаем от переменной 2. Если переменная 'a' больше 1, то повторяем цикл. И так до того момента пока от переменной не останется 0 или 1. Если переменная равна 0, это значит что переменная четная. А если 1, то переменная нечетная. И так делаем со всеми переменными :)