1)Что такое информационная безопасность?2)Что входит в понятие "защита информации"?3)На какие группы делятся средства защиты информации?4)какие меры безопасности обычно применяются в организациях?5)Почему при объединении компьютеров в сеть безопасность снижается?6)Кто такие инсайдеры? ​

                                  1  

Информационная безопасность — состояние сохранности информационных ресурсов государства и защищённости законных прав личности и общества в информационной сфере.

                                   2

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

                               3

https://ru-static.z-dn.net/files/db0/f62b89f6cbda70f9010f99e45cc4e273.jpg

                                4

1. Защиту объектов информационной безопасности - это сервера, базы данных и электронная почта т.п.

2. Защита процессов, процедур и программ обработки информации - это защита сети предприятия, защита каналов передачи данных, защита систем управления базами данных и т.п.

3. Подавление побочных электромагнитных излучений - с целью не допускания обрыва связи и искажения передаваемых данных;

4. Ну и непосредственно организация управления системой защиты - установка, контроль, профилактика и т.п.

                                        5.

https://ru-static.z-dn.net/files/dde/b2cd8f6781336ecd80571e74a29c802c.jpg

                                      6

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

1)
var a:string;
    i, o: Integer;
    p: Real;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (sqr(o) = p*p*p) then writeln('true')
        else writeln('false');
end.

2)
var a:string;
    i, o, p: Integer;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (p mod 3 = 0) then writeln('true')
        else writeln('false');
end.

3)
var a, b, c: real;
begin
     readln(a, b, c);
     if ((a = b) and (b = c)) then writeln('true')
        else writeln('false');
end.

Всё проверено, удачи:)

Задание 1

program HelloMoney;

 var

 y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла  

p, s: real; //Объявим переменные для количества процентов и величины вклада

begin

write('Какая сумма вклада? ');

readln(s); // Указываем сколько составляет вклад

write('На сколько лет вклад? ');

readln(y); // Указываем на сколько лет вклад

write('Какая процентная ставка?');

readln(p); // Указываем процентную ставку

for i:=1 to y do

s := s + s*p/100; // Прибавляем к вкладу ежегодный процент

write('Сумма денег составит: ', s);

end.

Объяснение: