ВОПРОСЫ И ЗАДАНИЯ: 1) Отличаются ли «фейки» в социальных сетях от телевизионных «Фейков»? Объясните, чем они могут отличаться? 2) Составьте таблицу: какие виды спама бывают и какой вред мо жет нанести каждый из них.

Const nx = 20;mx = 30;
var A:array[1..nx,1..mx]of integer; i,j,n,m,min,z:integer; sum:array[1..nx]of integer;
begin
write('Введите число строк и столбцов');Readln(n,m);min:=1000;
for i:=1 to n do begin
sum[i]:=0;
for j:=1 to n do begin
A[i,j]:= random(100)-50;
write(A[i,j]:5);sum[i]:= sum[i] + A[i,j];end;writeln;
if min > abs(sum[i]) then begin min := abs(sum[i]);z:=i;end;
end;writeln;for i:=1 to n do
writeln('i= ',i,' sum = ', sum[i]:4);writeln;
writeln('Ближе всего к нулю i= ',z,' sum = ', sum[z]:4);end.

Var
  i,k,n,p:longint;
  f:array[1..10,1..2] of longint;
begin
  p:=2; i:=1;
  f[1,1]:=1; f[1,2]:=1;
  Write('Введите натуральное число не больше 2 147 483 647: ');
  Read(n);
  Write(n,' = 1');
  while n<>1 do begin
    if (n mod p)=0 then begin
      if f[i,1]<>p then
      begin Inc(i); f[i,1]:=p; f[i,2]:=1 end
      else Inc(f[i,2]);
      n:=n div p
    end
    else inc(p)
  end;
  k:=i;
  for i:=2 to k do
  begin
    Write(' x ',f[i,1]);
    if f[i,2]>1 then Write('^',f[i,2])
  end;
  Writeln
end.

Тестовое решение:
Введите натуральное число не больше 2 147 483 647: 223092870
223092870 = 1 x 2 x 3 x 5 x 7 x 11 x 13 x 17 x 19 x 23

Введите натуральное число не больше 2 147 483 647: 65536
65536 = 1 x 2^16

Введите натуральное число не больше 2 147 483 647: 2147483647
2147483647 = 1 x 2147483647