Слабораторной работай (50 ) сама лаба в пдф файле

Во-первых, представленный для анализа документ должен соответствовать действующему образцу. Распознать подделку можно по внешним данным, к примеру, при наличии в бланке несуществующих в оригинале строк.

Во-вторых, убедиться в оригинальности документа можно, обратившись к изучению подлинности бланка. Так, все оригинальные бланки в официальных документах должны иметь одинаковую фактуру бумаги, единые знаки защиты (голограммы и пленки), единую серию и номер документа на всех страницах. К самому заполнению официальных бумаг тоже предъявляются строгие требования. В частности, речь идет о заполнения и используемых шрифтах. В правильно заполненном документе не должно быть исправлений и ошибок.

В-третьих, оригинальный документ, представленный специалистам для изучения, не должен иметь признаков замены фотографии, если обязательность вклеивания фотокарточки предусмотрена самим видом документа. Подлинность документа подтверждает применение оригинальных печатей с указанием реквизитов органа, удостоверившего факт выдачи официальной бумаги.

Если имеется возможность сверить фото на бланке с личностью владельца документа, что осуществляется визуальная сверка фото на документе и личности его предъявителя.

Процедурой:

// Возводит действилельное число x в целую степень n
Procedure Pow(Const X:real; Const n:integer; Var St:real);
Var i:integer;
Begin
St:=1;
For i:= 1 to n do
    St:=St*x;
End;

Var
   x,y,St:real;
   n:integer;
Begin
y:=0;
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
For n:= 1 to n do
    Begin
    Pow(x,n,St);
    y:=y+Cos(St);
    End;
WriteLn('y = ',y);
End.

Функцией:

// Возводит действилельное число x в целую степень n
Function Pow(Const X:real; Const n:integer):real;
Var i:integer;
Begin
result:=1;
For i:= 1 to n do
    result:=result*x;
End;
Var
   x,y:real;
   n:integer;
Begin
y:=0;
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
For n:= 1 to n do
    y:=y+Cos(Pow(x,n));
WriteLn('y = ',y);
End.

Циклом:

Var
   x,y,St:real;
   n:integer;
Begin
y:=0;
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
St:=1;
For n:= 1 to n do
    Begin
    St:=St*x;
    y:=y+Cos(St);
    End;
WriteLn('y = ',y);
End.