Чему будет равно тройное отрицание утверждения: не (не (не

не (не (не а)) = не  а

наверное это будет опять же не.

Program yeah; const n=15; const m=15; var a: array [1..n,1..m] of integer; i,j,b,c,x,y: integer; beginrandomize; write('матрица: '); writeln; for i: =1 to n do begin    for j: =1 to m do begina[i,j]: =random(100); write(a[i,j]: 3); end; writeln; end; c: =1; while c< 16 do beginfor i: =1 to n do begin    for j: =1 to m do beginb: =a[1,c]; end; end; x: =x+b; c: =c+1; end; writeln('сумма первой строчки: ',x); c: =1; while c< 16 do beginfor i: =1 to n do begin    for j: =1 to m do beginb: =a[15,c]; end; end; y: =y+b; c: =c+1; end; writeln('сумма последней строчки: ',y); x: =x+y; writeln('общая сумма: ',x); end.

// pascalabc.net 3.1, сборка 1239 от 08.05.2016 begin   var p: =biginteger(1);   for var i: =1 to 5 do p*=readlnstring('введите число: ').tobiginteger;   writeln('произведение равно ',p) end. тестовое решение введите число: 54636345465436 введите число: 3453546454645356 введите число: 645234545376678457 введите число: 96776437463 введите число: 123142325624656998887909978986675622 произведение равно 1450913554189850838728716778863079022580143228594634478735461839146946566264784968043421600032