uses crt; type fil=text; var f1:fil; a,b,c:string; i,w,n,y:integer; procedure wwod; begin assign(f1,'t1.dat'); rewrite(f1); writeln('Введите кол-во строк в файле:'); readln(y); for i:= 1 to y do begin writeln('Введите ',i,' строку'); {} readln(a); writeln(f1,a); end; close(f1); end; procedure prosm; begin assign(f1,'t1.dat'); reset(f1); writeln('Содержание текстового файла:'); while not eof(f1) do begin a:=''; readln(f1,a); writeln(a) end; close(f1); end; procedure naxod; var max:string; i,i1:integer; begin assign(f1,'t1.dat'); reset(f1); max:=''; i:=1;i1:=0; while not eof(f1) do begin a:=''; readln(f1,a); if length(a)> length(max) then begin max:=a; i1:=i; end; inc(i); end; writeln('Самая длинная строка: ',max,' (',i1,')'); reset(f1); i:=1; while not eof(f1) do begin a:=''; readln(f1,a); if (length(max)=length(a)) and (i<>i1) then writeln('Еше одна Самая длинная строка: ',max,' (',i,')'); inc(i); end; close(f1);{} end; begin w:=0; {обнуляем переменную для выбора меню} while w<>4 do begin {пока не равно 4 } writeln(' Меню программы'); writeln('1-Создание текстового файла'); writeln('2-Просмотр текстового файла'); writeln('3-Нахождение длинного строки'); writeln('4-Выход из программы'); write(' Ваш выбор -> '); readln(w); case w of 1:wwod; 2:prosm; 3:naxod; end; writeln end; end.
Культуркампф» (йому. kulturkampf — боротьба за культуру), поширене в літературі найменування заходів уряду о. бісмарка в 70-х рр. 19 ст проти католицької церкви — головної опори католицької партії «центру», яка виражала сепаратистські, антипрусські тенденції (головним чином в західній і південно-західній німеччині). у ході «до.» були проведені закони про заборону священикам вести політичну агітацію (дек. 1871), про позбавлення духівництва права нагляду за школами (березень 1872), про передачу в руки держави справи підготовки і призначення на посаді духовних осіб (1873) і ін. у лютому 1875 були розбещені майже всі католицькі ордени і проведений закон про цивільний брак. уряд бісмарка використовував «до.» для посилення національного гніту в польських землях, що знаходилися під німецьким пануванням, і розпалювання релігійних пристрастей з метою відвернення робітників від класової боротьби. характеризуючи «до.», в. і. ленін писав: «такою боротьбою бісмарк лише укріпив войовничий клерикалізм католиків, лише пошкодив справі дійсної культури, бо висунув на перший план релігійні ділення замість ділень полі» (полн. собр. соч.(вигадування), 5 видавництво, т. 17, с. 416—17). в кінці 70 — початку 80-х рр. бісмарк в цілях об'єднання всіх консервативних сил пішов на примирення з католицьким духівництвом: більшість законів, прийнятих в період «до.», було скасовано; збереглися лише закони про цивільний брак і про вигнання єзуїтів.
Борьба между Тверью и Москвой началась из-за того,что эти города претендовали на роль центра собирания русских земель,так же за эту роль боролась Литва. У обоих городов было выгодное географическое расположение: 1)находятся в центре русских земель,далеко от опасных границ 2)бездорожье 3)плодородные почвы,леса,болота В конечном итоге выбрана была Москва,т.к. политика Московских князей была направлена на поддержание дружественных отношения с Ордой,Москва исправно платила дань,город не был разорён(в отличие от Твери) Борьба между городами сопровождалась княжескими усобицами
