1. пропала ; после writeln('Цифра')
2. меньше или равно пишется <=, так что условие n=<300 надо переписать n<=300
3. после sum:=n+sum; пропала закрывающая скобка end
4. после else надо бы еще begin
5. предпоследняя строчка тоже мимо.
Вот вся исправленная прога:
program one;
var a,n,sum,b:integer;
sred:real;
begin
readln(n);
writeln('Цифра');
while (n<>0) do
begin
sred:=0;
sum:=0;
b:=0;
if(n mod 8 =0 )and (n<=300) then
begin
sum:=n+sum;
end
else
begin
writeln('NO');
end;
readln(n);
if b>100 then
writeln('NO')
end;
sred:=sum/b;
writeln('Среднее арихметическое равно ',':=',sred);
end.
Причины киберприступности : мошенниство , жажда денег , подстава людей .
Цели киберприступности :
жажда денег , месть .
Виды киберприступности :
Мошенничество с электронной почтой и интернет-мошенничество
Мошенничество с использованием личных данных (кража и злонамеренное использование личной информации)
Кража финансовых данных или данных банковских карт
Кража и продажа корпоративных данных
Кибершантаж (требование денег для предотвращения кибератаки)
Атаки программ-вымогателей (тип кибершантажа)
Криптоджекинг (майнинг криптовалюты с использованием чужих ресурсов без ведома их владельцев)
Кибершпионаж (несанкционированное получение доступа к данным государственных или коммерческих организаций)
Большинство киберпреступлений относится к одной из двух категорий
Криминальная деятельность, целью которой являются сами компьютеры
Криминальная деятельность, в которой компьютеры используются для совершения других преступлений
Признаки киберприступности :
незаконный перехват или кража данных.
компрометация компьютерных систем и сетей
нарушение авторских прав
незаконные азартные игры