Крещение тремя перстами вместо двух. Поклоны следовало совершать до пояса, а не до земли, как было раньше. Внесены изменения религиозные книги и иконы. Введено понятие "православие". Изменено имя Бога, в соответствии с общемировым написанием. Теперь вместо "Исус" писалось "Иисус". Замена христианского креста. Патриарх Никон предлагал заменить его четырехконечный крестом. Изменение обрядов церковной службы. Теперь Крестный ход совершался не по часовой стрелке, как было раньше, а против часовой стрелки.
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.
Поклоны следовало совершать до пояса, а не до земли, как было раньше.
Внесены изменения религиозные книги и иконы.
Введено понятие "православие".
Изменено имя Бога, в соответствии с общемировым написанием. Теперь вместо "Исус" писалось "Иисус".
Замена христианского креста. Патриарх Никон предлагал заменить его четырехконечный крестом.
Изменение обрядов церковной службы. Теперь Крестный ход совершался не по часовой стрелке, как было раньше, а против часовой стрелки.