Подробнее
1 2 3 4 5 б 7 S 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 phi - безжалостный и беспощадных-!. {$APPTYPE CONSOLE} Classes, SysUtils; {$REGION ’ Всякие нужности ;) ’} Const аяПапко = faDirectory; ФсеФайло = faAnyFile; Канэшна = true; Оке = true; Да = true; He = false; Hea = false; Type ДаНе = Boolean; Стринги = String; Целое = Integer; ТПачкаСтрингов = TStringList; ТПачкаСтрингов_Ри = class helper for ТПачкаСтрингов public constructor Родить; procedure УбитьНах; function СкокаВасТам: Целое; procedure BrmxHyTb(Const Стринги: Стринги); end; procedure ТПачкаСтрингов_Ри.BrmxHyTb(const Стринги: CTpnHrn);begin inherited Add(CTpnHrn);end; function ТПачкаСтрингов_Ри.СкокаВасТам: Цeлoe;begin Result := Count;end; procedure ТПачкаСтрингов_Ри.УбитьНах;begin inherited Free;end; constructor ТПачкаСтрингов_Ри.Родить;begin inherited Create;end; procedure СлухСюды(Const Стр: CTpnHrn);begin WriteLn(CTp);end; function ЧеКаг: Цeлoe;begin result := ParamCount;end; function 4eToTaM(Const Индекс: Целое): CTpnHrn;begin result := ParamStr(HHfleKc);end; procedure ЖдатьЙопть;begin Readln;end; {SENDREGION} {SREGION ’ Фигня всякая нужная ;) ’} Procedure ИщиПапкиСцк(Const Откель:Стринги;КудаПихать:ТПачкаСтрингов); Var СюдаИщи:TSearchRec; Begin If FindFiгst(Oткeль+'*.*,>ФceФaйлo>CюдaИщи)=0 Then Repeat If ((СюдаИщи.Attr and аяПапко)=аяПапко) and (СюдаИщи .NameO’.’) and (СюдаИщи .NameO’..’) Then КудаПихать. Впихнуть(Откель+СюдаИщи.Name) Until FindNext(CtoflaHiun)<>0; FindClose(CtoflaHiun); End; Procedure ИщиФайлоСцк(Const Чё,Откель:Стринги;КудаПихать:ТПачкаСтрингов;ИскатьВнутре:ДаНе=Не); Var СюдаИщи:TSearchRec; СтадоПапк:ТПачкаСтрингов; ы:Целое; Begin If FindFirst(Oткeль+Чë>ФceФaйлo>CюдaИщи)=0 Then Repeat If ((СюдаИщи.Attr and аяПапко)<>аяПапко) Then КудаПихать.Впихнуть(Откель+СюдаИщи.Name) Until FindNext(CtoflaHiun)<>0; FindClose(CtoflaHiun); If ИскатьВнутре Then Begin СтадоПапк:=ТПачкаСтрингов.Родить; Try ИщиПапкиСцк(Откель,СтадоПапк); For ы:=0 To СтадоПапк.СкокаВасТам - 1 Do ИщиФайлоСцк(Чё,СтадоПапк[ы]+'\',КудаПихать,Канэшна); Finally СтадоПапк.УбитьНах; End; End; End; {SENDREGION} Var стадоФиле: ТПачкаСтрингов; ы: Целое; begin СлухСюды('SU: Logging commenter 1.00.0008'); СлухСюды(’(С) 2009, Timur R. Vildanov / mcdifyed Rouse_’); стадоФиле := ТПачкаСтрингов.Родить; try if ЧеКаг = 1 then стадоФиле.Впихнуть(ЧетоТам(1)) else ИщиФайлоСцк(’*.pas', GetCurrentDir+’\, стадоФиле); for ы := 0 to стадоФиле.СкокаВасТам - 1 do СлухСюды(стадоФиле[ы]); finally стадоФиле.УбитьНах; end; ЖдатьЙопть; end.
delphi,geek,Прикольные гаджеты. Научный, инженерный и айтишный юмор
Еще на тему
а сейчас использую исключительно вордпресс, самое что есть простое и понятное)
Да. Француз. Франция, точнее Французская Республика, не про этнос, а про гражданство. Если ты принимаешь французский язык, французскую историю, французскую культуру, французские законы и готов сражаться за Францию, то ты имеешь полное право называться Французом. Это те принципы, которые являются определяющими для французской нации на текущий момент. И не важно какой у тебя цвет кожи и форма черепа.
This is a paragraph.
m gh rt rtfffffghhhhhfgdf
d
fg dfgdfgdrfg
> dfgd fgdfg d ::: _[AntiUser:29294307]_
hjkhj hjk hjkhjkh
uioyum uiuioui
без сомнения
дополню
"Марксизм-ленинизм описывается как, с одной стороны, догматическое учение, а с другой, как инструмент государства и правящей партии, развивавшийся в соответствии с прагматическими задачами и текущей ситуацией[4][3]. Свои господствующие позиции марксизм-ленинизм утратил после распада СССР"
Марксизм-ленинизм был государственной идеологией однопартийных режимов в странах Второго мира, развитие которой началось в 1920-е годы, уже после смерти Ленина, и основным теоретиком которой был И. В. Сталин; начало развития идеологии относят к периоду внутрипартийной борьбы
С точки зрения его последователей, марксизм-ленинизм разрабатывался как учение В. И. Лениным, развившим учение К. Маркса и применившим его на практике[7][8]. В странах «второго мира» официально объявлялся «идеологией рабочего класса»[9]. Идеология видоизменялась, также включая в себя учения региональных коммунистических лидеров, имеющие значения преимущественно для руководимых им государств[
В советской парадигме марксизм-ленинизм — единственная истинно верная научная система философских, экономических и социально-политических взглядов, интегрирующая концептуальные воззрения относительно познания и революционного преобразования мира, о законах развития общества, природы и человеческого мышления, о классовой борьбе и формах перехода к социализму и строительстве социалистического и коммунистического общества[11].
в СССР существование диктатуры пролетариата декларировалась до 1936 года, однако после Второй мировой войны было отдано предпочтение не диктатуре пролетариата, а народной демократии и народно-демократическим революциям
> о законах развития общества, природы и человеческого мышления ::: _[AntiUser:29314190]_
Согласно идеологии, именно партия осуществляет революцию, организовываясь через демократический централизм; после прихода к власти она устанавливает государственный контроль над средствами производства, подавляя конкуренцию, контрреволюцию и буржуазию, осуществляя строительство социализм в отдельно взятой стране, прокладывая тем самым путь к бесклассовому и безгосударственному коллективистскому коммунистическому обществу
Марксизм-ленинизм отвергает анархизм и левый коммунизм, троцкизм, реформизм, социал-демократию и другие учения; он же утверждает теорию о необходимости стадии капитализма перед переходом к социализму. В марксизме-ленинизме важную роль играет идея диктатуры «партии – авангарда рабочего класса», которую Владимир Ленин выдвинул уже после Октябрьской революции как свою интерпретацию идеи диктатуры пролетариата[12][13];