Задача A. 80236. Докажи, что математик! Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 1 секунда Ограничение по памяти: 256 мегабайт После неудачного выступления на ACM ICPC 2018-2019, NEERC - Northern Eurasia Finals, коман- да Хранители335 решила подтянуть свои знания математики, ибо на этом контесте они не решили элементарную задачу по теории чисел. Сегодня один из членов команды придумал задачу, где надо просто определить является ли площадь треугольника целочисленной. Ваша задача состоит в том, чтобы этим ребятам.
Формат входных данных В первой строке записаны три целых числа a, b и c (1 ⩽ a, b, c ⩽ 5000) - длины сторон загаданного треугольника.
Формат выходных данных Выведите единственное число — площадь треугольника если она является целочисленной. В остальных случаях выведите -1.
Никак этож если ядро 32 ух битное то в 64 ёх битную не переделать, только переустановка по другому ни как, конечно можно какие то там файлики поменять чтоб 4 гига видела, но вот адресовать она их просто не сможет
я жэ говорил что видно 4 гб будет а адресовать 32 ух битка не будет 4 гига, она просто этого сделать не сможет, чтобы она это делала тебе придется математику изменить- но это не возможно как и изменения ядра винды какой смысл, если даже видя все 4 гб, 0.8 гига она всёравно использовать не будет
// 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.
я жэ говорил что видно 4 гб будет а адресовать 32 ух битка не будет 4 гига, она просто этого сделать не сможет, чтобы она это делала тебе придется математику изменить- но это не возможно как и изменения ядра винды какой смысл, если даже видя все 4 гб, 0.8 гига она всёравно использовать не будет
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.
Тестовое решение:
Количество элементов в массиве: 20
Исходный массив
-18 -9 18 15 7 -20 -4 18 -24 -6 -24 2 -3 -10 12 -4 19 4 0 -17
Нечетные элементы:
-9 15 7 -3 19 -17
Произведение отрицательных элементов: -91371110400