Никак этож если ядро 32 ух битное то в 64 ёх битную не переделать, только переустановка по другому ни как, конечно можно какие то там файлики поменять чтоб 4 гига видела, но вот адресовать она их просто не сможет
я жэ говорил что видно 4 гб будет а адресовать 32 ух битка не будет 4 гига, она просто этого сделать не сможет, чтобы она это делала тебе придется математику изменить- но это не возможно как и изменения ядра винды какой смысл, если даже видя все 4 гб, 0.8 гига она всёравно использовать не будет
Сухроб944
12.06.2020
// PascalABC.Net 3.0, сборка 1052 const nn=100; var i,n:integer; a:array[1..nn] of integer; p:real; begin Write('Количество элементов в массиве: '); Read(n); Writeln('Исходный массив'); for i:=1 to n do begin a[i]:=Random(51)-25; Write(a[i],' ') end; Writeln; p:=1; Writeln('Нечетные элементы:'); for i:=1 to n do begin if a[i]<0 then p:=p*a[i]; if a[i] mod 2 <> 0 then Write(a[i],' ') end; Writeln; Writeln('Произведение отрицательных элементов: ',p) end.
Вроде так