информацию нужно защищать-от несанкционированного доступа и кражи,порчи (преднамеренной или нет).Всё чаще на страницах многих изданий встречаются такие словосочетания безопасность,критичная информация;коммерческая тайна и пр.
Program spusku; uses crt; type spusok=^elem; elem=record data:integer; next:spusok; end; var i:spusok;
procedure add(var current:spusok; elem:integer); var x:spisok; begin new(x); x^.data:=elem; x^.next:=nil; current^.next:=x; current:=x; end;
procedure stvor(var i:spusok); var p:spisok; n:integer; begin i:=nil; writeln('Vvedite spusok celux 4usel. 0-konec'); readln(n); add(i,n); readln(n); while n<>0 do begin p:=i; while p^.next<>nil do p:=p^.next; add(p,n); readln(n); end; end;
procedure minmax(var i:spusok); var p:spusok; kmin, kmax:integer; begin kmin:=1000000; kmax:=0; while i<>nil do begin p:=i; if p^.data>kmax then kmax:=p^.data; if p^.data<kmin then kmin:=p^.data; i:=i^.next; end; writeln('raznost =', kmax-kmin) end;
За 4 умножения получить var a, b: integer; begin readln(a); b := a * a; b := b * b; b := b * b; b := a * b; writeln(b); end.
Вывести числа [a; b] и их квадраты Var a, i, b: integer; begin readln(a, b); for i := a to b do writeln(i, ' ', sqr(i)); end.
Произведение 2-х чисел Var a, b: integer; begin readln(a, b); writeln(a * b); end.
Максимальное и минимальное из 100 введённых чисел без использования массивов: var k1, mi, ma, i: integer; begin readln(ma); readln(mi); for i := 1 to 98 do begin readln(k1); if (ma < k1) then ma := k1; if (mi > k1) then mi := k1; end; writeln(ma, ' - ', mi); end.
Перевод из 10чной СС в 2чную Var b:array [1..255] of integer; a, i, n:integer; begin readln(a); i := 0; while (a >= 1) do begin i := i + 1; b[i] := a mod 2; a := a div 2; end; n := i; for i := n downto 1 do write(b[i]); end.
X в степени Y var x, y: real; begin readln(x, y); writeln(exp(ln(X) * Y)); end.
информацию нужно защищать-от несанкционированного доступа и кражи,порчи (преднамеренной или нет).Всё чаще на страницах многих изданий встречаются такие словосочетания безопасность,критичная информация;коммерческая тайна и пр.
Объяснение: