Переменная sum после выполнения программы будет равна 2.
200*35*50 = 350 000 байт
350 000 байт = 0,35 Мбайт
2 Гб = 2000 Мбайт
2000 / 0,35 = 5 714 учебников
Var a: array[1..100] of integer;
i, k,n: integer;
begin
writeln('Введите n:');
readln(n);
writeln('Массив:');
for i := n downto 1 do
begin
a[i] := random(100);
write(a[i]:4);
end;
writeln;k:=0;
for i := 1 to n do
if a[i] mod 2 <> 0 then
begin
writeln('Номер первого нечетного = ', i);
k:=1;
break;
end;
if k=0 then
writeln('В массиве нет нечетных элементов');
readln;
end.
Преобразуем гигабайты в мегабайты (1Гб - 1000мб)
320Гб = 320000мб
Считаем количество условных объемов по 15 грамм (допустим что 15грамм - это вес одного СД диска), тогда узнаем сколько нужно дисков что бы разместить на них 320000мб:
320000мб : 700мб = 457,14286 дисков
(так как необходимо разместить все данные, а количество дисков получилось не целым, то округляем до целого, в большую сторону, получаем 458 дисков).
Известно, что вес одного условного диска 15 грамм, умножаем количество дисков на их вес:
458 дисков * 15 грамм = 6870 грамм или 6кг 870грамм