1 Информационная безопасность — практика предотвращения несанкционированного доступа, использования, раскрытия, искажения, изменения, исследования, записи или уничтожения информации. Это универсальное понятие применяется вне зависимости от формы, которую могут принимать данные
Объяснение:
2 Сегодня более 60% пользователей Интернета – молодые люди в возрасте от 14 до 30 лет. По прогнозам экспертов, с внедрением в рамках национального проекта "Образование" Интернета в школы, этот процент возрастет в несколько раз, так как доступ к глобальной сети получат дети. В то же время глобальная сеть остается опасной, для детей и подростков средой. С одной стороны в свободном доступе находятся сайты с агрессивным и социально опасным содержанием. С другой, образовательные, социально-полезные, позитивные, ориентированные на молодежь ресурсы существуют в недостаточном количестве или не отвечают современным требованиям.
Необходимо обеспечить безопасность детей и молодежи при использовании сети Интернет с технических средств и отслеживания интернет-ресурсов негативного содержания. Помимо этого – нужно разработать комплексную программу создания и поддержки молодежных интернет-ресурсов позитивной направленности всестороннему развитию детей и молодежи, активному их вовлечению в социальную и общественную жизнь, воспитанию гражданской позиции и ответственности перед обществом.
3 Интернет-мошенничество — вид мошенничества с использованием Интернета. Оно может включать в себя сокрытие информации или предоставление неверной информации с целью вымогательства у жертв денег, имущества и наследства.
program calklin;
uses
crt;
var
a, b, x: real;
begin
textcolor(red);
gotoxy(10, 5);
write('Вас приветствует калькулятор решать линейные уравнения');
gotoxy(10, 6);
write('Введите а=');
readln(a);
gotoxy(10, 7);
write('Введите b=');
readln(b);
gotoxy(10, 8);
if a = 0
then
begin
gotoxy(10, 9);
textcolor(red);
writeln('Нет корней')
end
else
begin
if a <> 0
then
begin
gotoxy(10, 10);
textcolor(red);
x := (-b / a);
writeln('Уравнение имеет корень и он равен: x =', x, '');
end;
end;
end.
var i:integer;
sl,sg:longint;
x:real;
a:array[1..n] of integer;
begin
Randomize;
for i:=1 to n do a[i]:=random(1000)-500; // Случайные числа от -500 до 500
sl:=0; sg:=0;
writeln('Введите число Х');
readln(x);
for i:=1 to n do
if a[i]<x then sl:=sl+abs(a[i]) else sg:=sg+abs(a[i]);
writeln('Сумма меньших: ',sl,' Сумма больших: ',sg)
end.
Пример решения:
Введите число Х
25
Сумма меньших: 1731 Сумма больших: 2407