являются подпрограммами. Подпрограмма – это именованная часть программы, представляющая собой некоторое собрание операторов, структурированных аналогично основной программе. Подпрограммы не необходимы, но их наличие заметно облегчает работу программиста и увеличивает «ценность» код, также как и во многих других языках программирования, переменные по отношению к программе делятся на локальные и глобальные. Те, которые объявляются в основной части, называются глобальными, а в процедуре или функции – локальными. Локальные переменные в отличие от глобальных могут использоваться лишь внутри подпрограммы, к которой они принадлежат.
Не переклеено ли фото на паспорте
При утере паспорта лучше как можно скорее бежать и писать заявление о пропаже. Ведь у нашедшего документ есть три варианта: оставить на память, отнести в милицию или продать дельцам, которые заменят в нем фото и продадут какому-нибудь мошеннику.
Не каждый отказаться от легких денег. Чем скорее вы явитесь с повинной, тем больше вероятность, что паспорт попадет в базу утерянных, наличие в которой не даст преступникам взять по нему кредит или продать сбежавшему зеку.
Чтобы выяснить, не терял ли кто паспорт вашего нового знакомого, надо пробить серию и номер документа по списку недействительных российских паспортов.
Настоящее ли разрешение на работу
Не фальшивое ли разрешение на въезд
Правильно ли указана прописка/регистрация
Не нарисованы ли права
Ну вроде как то так.
Объяснение:
В программе сразу дан пример!
const n=5;
var a:array[1..n,1..n] of byte=
((1,0,1,0,1),
(1,0,0,0,1),
(0,0,1,0,1),
(1,0,0,0,0),
(0,0,1,1,0));
k, i, j: integer;
begin
if a[1,1]=1 then k:=1 else k:=0;
for j:=2 to n do
if (a[1,j-1]=0)and(a[1,j]=1) then k:=k+1;
for i:=2 to n do
begin
if (a[i-1,1]=0)and(a[i,1]=1) then k:=k+1;
for j:=2 to n do
if (a[i-1,j]=0)and(a[i,j-1]=0)and(a[i,j]=1) then k:=k+1;
end;
writeln('k = ',k);
end.
Результат:
k = 6