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
Windows, остальные тут не то.