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

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

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

Ответ:

максимус67

30.12.2022 18:15

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 оценок)

Ответ:

МарияПремудрая1

16.11.2020 18:00

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 оценок)

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