Практическое занятие «Информационные угрозы» Задание 1.
1) На примере нескольких различных угроз покажите, что их осуществление приведет к изменению одного из основных свойств защищаемой информации (конфедициальности, целостности, доступности).
2) Приведите примеры систем, для которых наибольшую угрозу безопасности представляет нарушение конфедициальности.
3) Для каких систем (приведите примеры) наибольшую опасность представляет нарушение целостности информации?
4) В каких системах на первом месте стоит обеспечение доступности информации?
5) В чем различие понятий «нарушение конфедициальности информации», «несанкционированный доступ к информации», «утечка информации»?
6) Определите перечень основных угроз для АС, состоящей и автономно работающего компьютера без выхода в сеть, расположенной в одной из лабораторий университета.
7) Постройте неформальную модель нарушителя для учебной компьютерной лаборатории.

Задание 2.
1) Определите и перечислите информационные угрозы, которым подвергается ваш домашний компьютер.
2) Определите и перечислите информационные угрозы, которым подвергается компьютер в классе.

Показать ответ

Ответ:

nicsiberia

19.05.2020 06:15

Var a: array[1..20,1..20] of integer; n,m,i,j,min,jm,x: integer; begin randomize; write('Введите размеры массива: '); readln(n,m); writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(19)-9; write(a[i,j]:4); end; writeln; end; min:=0; for i:=1 to n do min:=min+a[i,1]; writeln('Сумма элементов 1-го столбца = ',min); jm:=1; for j:=2 to m do begin x:=0; for i:=1 to n do x:=x+a[i,j]; writeln('Сумма элементов ',j,'-го столбца = ',x); if x<min then begin min:=x; jm:=j; end; end; writeln('Минимальная сумма в ',jm,'-м столбце'); writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to m do begin if j<>jm then a[i,j]:=a[i,jm]; write(a[i,j]:4); end; writeln; end; readln; end.

0,0(0 оценок)

Ответ:

Adilkin

31.01.2021 19:10

uses crt; var s:string; c:char; m:set of char; n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then begin write(c); s:=s+c; end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do begin k:=0; for i:=1 to n do if s[i]=c then k:=k+1; if k>1 then m:=m+[c]; end; if m=[] then write('Нет букв, встречающихся более 1 раза') else for c:='a' to 'z' do if c in m then write(c) end.

0,0(0 оценок)

Популярные вопросы: Информатика