Ккаким последствиям может отсутствие защиты информации на

Отсутствия защиты на пк пользователя, может гразить ему потерей важных данных. если брать во внимания, последнее вредоносное программное обеспечение 2013 года, то спастить от зловреда, можно только собственным умом. никакие антивирусные программы не 100% защиты от вирусов. а само вредосное по, может нанести вред компьютеру от простейшего копирование различной конфиденциальной информации третьими лицами, до полной порчи вашей операционной системы.

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! type   point=(real,real); procedure getpoint(var q: point); begin   var a,b: real;   write('введите координаты точки: '); read(a,b);   q: =(a,b) end; function distance(a: point): =sqrt(sqr(a[0])+sqr(a[1])); begin   var a,b: (real,real);   getpoint(a);   getpoint(b);   var d1: =distance(a);   var d2: =distance(b);   if d1< d2 then writeln('первая точка ближе')   else       if d1> d2 then writeln('вторая точка ближе')       else writeln('точки равноудалены') end. пример введите координаты точки: 13.7 -11.25 введите координаты точки: 18 12.4 первая точка ближе

//pascalabc.net 3.2 сборка 1318 const   n=3;   m=4; var    ma: array[1..m,1..n] of integer;   ar: array[1..m] of integer;   i,j: integer; begin for i: =1 to m do   begin     ar[i]: =1;     for j: =1 to n do       begin         readln(ma[i][j]);         ar[i]*=ma[i][j];       end;   end; writeln('matrix: '); for i: =1 to m do   begin     for j: =1 to n do       write(ma[i][j]: 4);     writeln;   end; writeln('res: '); for i: =1 to m do writeln(i,': ',ar[i]); end.