Program n1;
const n=30;
var a: array[1..n] of integer;
i,k,sum: integer;
sr: real;
begin
randomize;
sum:=0;
k:=0;
for i:=1 to n do
begin
a[i]:=random(101);
write(a[i],' ');
sum:=sum+a[i];
end;
sr:=sum/n;
writeln;
for i:=1 to n do if a[i]>sr then k:=k+1;
writeln(k);
end.
Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
OC Windows намного лучше ,у большинства людей он стоит ,на него выходит больше программ и игр ,а Linux какашка)
Var
s,t,a,u0:real;
begin
writeln('Введите время');
readln(t);
writeln('Введите ускорение');
readln(a);
writeln('Введите началную скорость');
readln(u0);
s:=u0*t+((a*t*t)/2);
writeln(s);
<span>end.</span>
1. Нарушение Конфиденциальности (данные согут просматривать те устройства или люди которым разрешено)
2. Незаконное
проникновение в один из компьютеров сети под видом легального
пользователя или программы
3. Отключение программ защиты данных(шифраторов) и тд.
Както так, ну и ещё наверно (вдруг): изменение Ip илипортов.
Если чтото не правиль, извини))