Program one_a; uses crt; var s1,s2:string; p,a:integer; begin readln(s1); readln(s2); p:=pos(s2,s1); if p=0 then writeln('no') else writeln('pos:',p); end.
Program one_b; uses crt; var s1,s2:string; p,a:integer; begin readln(s1); readln(s2); p:=pos(s2,s1); if p=0 then writeln('no') else begin a:=length(s2); delete(s1,p,a); writeln(s1); end; end.
Program one_c; uses crt; var s1,s2:string; p:integer; begin readln(s1); readln(s2); s2:=' '+s2+' '; readln(p); insert(s2,s1,p); writeln(s1); end.
Program two_a; uses crt; var s1,s2,s3:string; begin s1:='край озер '; writeln(s1); s2:='лесов и рек'; writeln(s2); insert(s2,s1,length(s1)+1); writeln(s1); end.
Program two_b; uses crt; var s1,s2,s3:string; p,a:integer; begin s1:='Я учусь в школе'; writeln(s1); s2:='в школе'; s3:='в 10-м классе'; p:=pos(s2,s1); a:=length(s2); delete(s1,p,a); insert(s3,s1,p+1); writeln(s1); end.
Program three_a; uses crt; var s1,s2:string; p,a:integer; begin s1:='моя родина Беларусь'; writeln(s1); s2:='Беларусь'; p:=pos(s2,s1); a:=length(s2); delete(s1,p,a); s1:=s2+' '+s1; writeln(s1); end.
Program three_b; uses crt; var s1,s2:string; p,a:integer; begin s1:='люблю цябе, мой родны кут'; writeln(s1); s2:='мой родны кут'; p:=pos(s2,s1); a:=length(s2); delete(s1,p,a); delete(s1,length(s2)-2,2); s1:=s2+','+s1; writeln(s1); end.
Program four_a; uses crt; var s1,s2,s3:string; p,k,i,l,m:integer; begin s1:='Минск столица Беларуси'; writeln(s1); k:=0; for i:=1 to length(s1) do if copy(s1,i,1)=' ' then begin inc(k); l:=i; end; p:=pos(' ',s1); s2:=copy(s1,1,p-1); s3:=copy(s1,l+1,length(s1)-l+1); k:=length(s2); m:=length(s3); delete(s1,1,k); delete(s1,l-p+2,m); s1:=s3+s1+s2; writeln(s1); end.
Program four_b; uses crt; var s1,s2,s3:string; p,k,i,l,m:integer; begin s1:='Беларусь ты моя синеокая'; writeln(s1); k:=0; for i:=1 to length(s1) do if copy(s1,i,1)=' ' then begin inc(k); l:=i; end; p:=pos(' ',s1); s2:=copy(s1,1,p-1); s3:=copy(s1,l+1,length(s1)-l+1); k:=length(s2); m:=length(s3); delete(s1,1,k); delete(s1,l-p+2,m); s1:=s3+s1+s2; writeln(s1); end.
Program five_a; uses crt; var s1:string; x:integer; begin readln(s1); for x:=1 to length(s1) do if copy(s1,x,1)=' ' then begin delete(s1,x,1); insert('_',s1,x); end; writeln(s1); end.
Program five_b; uses crt; var s1:string; s2:char; x,y:integer; begin readln(s1); y:=0; for x:=1 to length(s1) do begin s2:=s1[x]; if (s2<>' ') and ((ord(s2)<48) or (ord(s2)>57)) then inc(y); end; writeln(y); end.
Program five_c; uses crt; var s1:string; s2:char; x,y:integer; begin readln(s1); y:=0; for x:=1 to length(s1) do begin s2:=s1[x]; if (ord(s2)<=90) and (ord(s2)>=65) then inc(y); if (ord(s2)>=192) and (ord(s2)<=223) then inc(y); end; writeln(y); end.
Полный список статей, посвященных теме безопасности, см. в разделе Обзор функций обеспечения безопасности приложения Acrobat и содержимого PDF.
Добавив в документы защиту, можно разрешить просмотр, редактирование, печать и другие действия только определенным пользователям.
Выбор типа защиты
Механизмы безопасности колеблются от относительно простых мер до сложных систем, внедряемых компаниями и службами. Выбор функции зависит от целей, которых нужно достичь. Несколько примеров.
Вы хотите, чтобы ваш PDF-файл просматривали только определенные люди. Самое простое решение — добавить в PDF пароль и отправить его нужным получателям. (См. Добавление защитного пароля.)
Вы хотите, чтобы никто не мог напечатать или отредактировать ваш PDF-файл. В том же диалоговом окне, которое использовалось для добавления пароля, можно запретить печать и редактирование. (См. Добавление защитного пароля.)
Вы хотите заверить своих получателей, что PDF-файл исходит действительно от вас. Лучше всего будет приобрести в центре сертификации цифровое удостоверение. Можно также создать цифровое удостоверение с собственной подписью, если вы общаетесь с группой, которой доверяете. (См. О цифровых удостоверениях и Защита документов сертификатами.)
Вам нужно решение для защиты PDF-файлов во всей организации. Вы можете разработать решение в том числе для компании, в которой имеются конфиденциальные данные. Некоторые организации используют сервер Adobe LiveCycle Rights Management ES для применения политики к документам. В политике определен перечень получателей и индивидуальный набор разрешений для каждого получателя. Отдельный человек может использовать политику, чтобы применить аналогичные параметры защиты ко множеству документам. (См. Защита документов с сервера стратегий Adobe LiveCycle Rights Management ES.)
Стратегии защиты
Политика безопасности накладывает на поток информации и обмен данными в пределах организации систематизированные ограничения. С сервера Adobe LiveCycle Rights Management можно применять к документам различные политики, не используя цифровые подписи и сертификаты. Если для набора файлов PDF часто используются одни и те же параметры защиты, то рабочие процессы можно упростить с политики безопасности. Используя разные политики, можно добиваться соответствия различным требованиям.
Политика оболочек
Вы можете защищать несколько документов, помещая их в оболочку PDF. Оболочки можно шифровать для предотвращения несанкционированного доступа к содержимому и сертифицировать для подтверждения подлинности происхождения. Авторизованные получатели могут открывать оболочку и извлекать файлы для просмотра.
Политика LiveCycle Rights Management ES
Политики Adobe LiveCycle Rights Management ES хранятся на сервере, и для их использования пользователь должен иметь доступ к серверу. Для создания этих стратегий необходимо указать получателей документа из списка на сервере стратегий Adobe LiveCycle.
Политики паролей и сертификатов
Параметры паролей или сертификатов можно сохранять для повторного использования при шифровании файлов PDF без настройки пароля или сертификата для каждого экземпляра
uses crt;
var s1,s2:string;
p,a:integer;
begin
readln(s1);
readln(s2);
p:=pos(s2,s1);
if p=0 then writeln('no')
else writeln('pos:',p);
end.
Program one_b;
uses crt;
var s1,s2:string;
p,a:integer;
begin
readln(s1);
readln(s2);
p:=pos(s2,s1);
if p=0 then writeln('no')
else
begin
a:=length(s2);
delete(s1,p,a);
writeln(s1);
end;
end.
Program one_c;
uses crt;
var s1,s2:string;
p:integer;
begin
readln(s1);
readln(s2);
s2:=' '+s2+' ';
readln(p);
insert(s2,s1,p);
writeln(s1);
end.
Program two_a;
uses crt;
var s1,s2,s3:string;
begin
s1:='край озер ';
writeln(s1);
s2:='лесов и рек';
writeln(s2);
insert(s2,s1,length(s1)+1);
writeln(s1);
end.
Program two_b;
uses crt;
var s1,s2,s3:string;
p,a:integer;
begin
s1:='Я учусь в школе';
writeln(s1);
s2:='в школе';
s3:='в 10-м классе';
p:=pos(s2,s1);
a:=length(s2);
delete(s1,p,a);
insert(s3,s1,p+1);
writeln(s1);
end.
Program three_a;
uses crt;
var s1,s2:string;
p,a:integer;
begin
s1:='моя родина Беларусь';
writeln(s1);
s2:='Беларусь';
p:=pos(s2,s1);
a:=length(s2);
delete(s1,p,a);
s1:=s2+' '+s1;
writeln(s1);
end.
Program three_b;
uses crt;
var s1,s2:string;
p,a:integer;
begin
s1:='люблю цябе, мой родны кут';
writeln(s1);
s2:='мой родны кут';
p:=pos(s2,s1);
a:=length(s2);
delete(s1,p,a);
delete(s1,length(s2)-2,2);
s1:=s2+','+s1;
writeln(s1);
end.
Program four_a;
uses crt;
var s1,s2,s3:string;
p,k,i,l,m:integer;
begin
s1:='Минск столица Беларуси';
writeln(s1);
k:=0;
for i:=1 to length(s1) do
if copy(s1,i,1)=' ' then
begin
inc(k);
l:=i;
end;
p:=pos(' ',s1);
s2:=copy(s1,1,p-1);
s3:=copy(s1,l+1,length(s1)-l+1);
k:=length(s2);
m:=length(s3);
delete(s1,1,k);
delete(s1,l-p+2,m);
s1:=s3+s1+s2;
writeln(s1);
end.
Program four_b;
uses crt;
var s1,s2,s3:string;
p,k,i,l,m:integer;
begin
s1:='Беларусь ты моя синеокая';
writeln(s1);
k:=0;
for i:=1 to length(s1) do
if copy(s1,i,1)=' ' then
begin
inc(k);
l:=i;
end;
p:=pos(' ',s1);
s2:=copy(s1,1,p-1);
s3:=copy(s1,l+1,length(s1)-l+1);
k:=length(s2);
m:=length(s3);
delete(s1,1,k);
delete(s1,l-p+2,m);
s1:=s3+s1+s2;
writeln(s1);
end.
Program five_a;
uses crt;
var s1:string;
x:integer;
begin
readln(s1);
for x:=1 to length(s1) do
if copy(s1,x,1)=' ' then
begin
delete(s1,x,1);
insert('_',s1,x);
end;
writeln(s1);
end.
Program five_b;
uses crt;
var s1:string;
s2:char;
x,y:integer;
begin
readln(s1);
y:=0;
for x:=1 to length(s1) do
begin
s2:=s1[x];
if (s2<>' ') and ((ord(s2)<48) or (ord(s2)>57)) then inc(y);
end;
writeln(y);
end.
Program five_c;
uses crt;
var s1:string;
s2:char;
x,y:integer;
begin
readln(s1);
y:=0;
for x:=1 to length(s1) do
begin
s2:=s1[x];
if (ord(s2)<=90) and (ord(s2)>=65) then inc(y);
if (ord(s2)>=192) and (ord(s2)<=223) then inc(y);
end;
writeln(y);
end.
Защита
Выбрать статью:Выбрать статью:
НА ЭТОЙ СТРАНИЦЕ
Выбор типа защиты
Стратегии защиты
Выбор методов защиты в режиме FIPS (Windows)
Применимо к: Adobe Acrobat 2017 Adobe Acrobat 2020 Adobe Acrobat DC
Последняя публикация: 28 июня 2020 г.
Примечание.
Полный список статей, посвященных теме безопасности, см. в разделе Обзор функций обеспечения безопасности приложения Acrobat и содержимого PDF.
Добавив в документы защиту, можно разрешить просмотр, редактирование, печать и другие действия только определенным пользователям.
Выбор типа защиты
Механизмы безопасности колеблются от относительно простых мер до сложных систем, внедряемых компаниями и службами. Выбор функции зависит от целей, которых нужно достичь. Несколько примеров.
Вы хотите, чтобы ваш PDF-файл просматривали только определенные люди. Самое простое решение — добавить в PDF пароль и отправить его нужным получателям. (См. Добавление защитного пароля.)
Вы хотите, чтобы никто не мог напечатать или отредактировать ваш PDF-файл. В том же диалоговом окне, которое использовалось для добавления пароля, можно запретить печать и редактирование. (См. Добавление защитного пароля.)
Вы хотите заверить своих получателей, что PDF-файл исходит действительно от вас. Лучше всего будет приобрести в центре сертификации цифровое удостоверение. Можно также создать цифровое удостоверение с собственной подписью, если вы общаетесь с группой, которой доверяете. (См. О цифровых удостоверениях и Защита документов сертификатами.)
Вам нужно решение для защиты PDF-файлов во всей организации. Вы можете разработать решение в том числе для компании, в которой имеются конфиденциальные данные. Некоторые организации используют сервер Adobe LiveCycle Rights Management ES для применения политики к документам. В политике определен перечень получателей и индивидуальный набор разрешений для каждого получателя. Отдельный человек может использовать политику, чтобы применить аналогичные параметры защиты ко множеству документам. (См. Защита документов с сервера стратегий Adobe LiveCycle Rights Management ES.)
Стратегии защиты
Политика безопасности накладывает на поток информации и обмен данными в пределах организации систематизированные ограничения. С сервера Adobe LiveCycle Rights Management можно применять к документам различные политики, не используя цифровые подписи и сертификаты. Если для набора файлов PDF часто используются одни и те же параметры защиты, то рабочие процессы можно упростить с политики безопасности. Используя разные политики, можно добиваться соответствия различным требованиям.
Политика оболочек
Вы можете защищать несколько документов, помещая их в оболочку PDF. Оболочки можно шифровать для предотвращения несанкционированного доступа к содержимому и сертифицировать для подтверждения подлинности происхождения. Авторизованные получатели могут открывать оболочку и извлекать файлы для просмотра.
Политика LiveCycle Rights Management ES
Политики Adobe LiveCycle Rights Management ES хранятся на сервере, и для их использования пользователь должен иметь доступ к серверу. Для создания этих стратегий необходимо указать получателей документа из списка на сервере стратегий Adobe LiveCycle.
Политики паролей и сертификатов
Параметры паролей или сертификатов можно сохранять для повторного использования при шифровании файлов PDF без настройки пароля или сертификата для каждого экземпляра