У бесконечного количества. Общая формула этого числа такая: N = 2*p^2, где р -простое число, большее 2. Его делители: 1, 2, р, р^2, 2*p^2=N. Пардон, я прогнал.. . Здесь не пять, а шесть делителей: пропустил еще 2*р. Вообще, одно такое число назвать можно: 16 1, 2, 4, 8, 16 Похоже, что оно и вообще единственное такое.
Нашел такие числа: Делители числа 8 (1; 2; 4; 8) Делители числа 27 (1;3;9;27) Делители числа 125 (1;5;25;125). Все эти числа являются кубами простых чисел. Следующие числа: куб числа 7, куб числа 11, куб числа 13. У кубов составных чисел (4, 6, 8 и тд.) больше 4х делителей, так как их самих можно представить в виде произведения простых чисел. ответ: 6 чисел. (8, 27, 125, 343, 1331, 2197)
Достижения в области новых технологий, на которых основывается формирование информационного общества, во многом изменили характер политических процессов. По новому начинают осмысливаться понятия политической коммуникации и политического информационного пространства. Существенным трансформациям подвергается вся система государственнного управления, свидетельством чего стала активно обсуждаемая и постепенно внедряемая в практику многих стран проблема “Электронной-демократии”. Без информационного сопровождения функционирование современных демократических институтов может быть существенно затруднено, а обеспечение равного доступа к политическим сетям при определенных условиях может закреплению демократических стандартов и их развитию. При этом выясняется, что современные информационные технологии, по мере расширения их сферы применения в повседневной жизни общества, создают потенциальную возможность не только для углубления демократических процессов, но и тотального контроля за частной жизнью и манипулятивного воздействия на личность. В условиях существования открытых, легко доступных и легко наполняемых информационных сетей возникает проблема ограничения информации, считающейся социально и экономически опасной; проблема электронного распространения персональных данных, проблема информационного элитаризма, когда лишь часть населения получает доступ к новым технологиям и информационным ресурсам и в состоянии реализовать это преимущество; проблема информационного империализма, когда ту же проблему доступа к информации и управления ею большие страны используют против малых; проблема соблюдения авторских прав и прав производителей электронной информации. Особую проблему преставляет вопрос об информационно бедных странах. На втором Всемирном Саммите по информационному обществу /Тунис, 2005/ обсуждался в качестве одного из главных вопрос информационного неравенства стран и трансформация понятия экономически бедных стран в информационно бедных. В информационном обществе возникают принципиально новые информационные угрозы для личности, общества и государства. Отсюда - жизненнно важное значение междисциплинарных и, в первую очередь, социально-политических исследований проблем информационной безопасности, киберпреступлений, информационного противоборства и информационных войн. И это - лишь часть принципиально новых социально-политических проблем, возникающих при определении национальной стратегии информационной политики государства в контексте происходящих изменений. Таким образом, актуальность исследований информационного общества связана с необходимостью теоретического осознания и эффективного политического управления процессами, возникающими под воздействием информационно-коммуникативных технологий.В свете становления информационного общества происходят глобальные изменения, которые трансформируют всю социальную структуру, оказывая воздействие на политические, экономические, культурные и социальные процессы. Глубоко изменяется социально-экономическая структура общества.
Var a:array[1..100] of integer; i,p,n:integer; begin writeln('введите количество элементов'); read(n); p:=1; randomize; {случайные числа} for i:=1 to n do {от 1 до n элемента} begin a[i]:=random(100)-50; {случайные числа, можешь указать любые значения} if a[i] mod 4=0 then{если элемент массива делится на 4 с остатком 0} p:=p*a[i]; {умножаем текущее p на этот элемент} end; writeln(p); {выводим произведение} end.
В случае,если в массиве будет число 0, оно будет делится на 4 без остатка, поэтому произведение будет 0. Если это не нужно, то строку if a[i] mod 4=0 then замени на if (a[i]<>0) and (a[i] mod 4=0) then Тогда 0 учитываться не будет.
Общая формула этого числа такая:
N = 2*p^2, где р -простое число, большее 2.
Его делители:
1, 2, р, р^2, 2*p^2=N.
Пардон, я прогнал.. .
Здесь не пять, а шесть делителей: пропустил еще 2*р.
Вообще, одно такое число назвать можно: 16
1, 2, 4, 8, 16
Похоже, что оно и вообще единственное такое.