Найти количество тех элементов массива, которые являются степенями четверки - Prolog

Prolog

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.67/3:

@matvey94 1 / 1 / 0 Регистрация: 13.01.2016 Сообщений: 5

	Найти количество тех элементов массива, которые являются степенями четверки 17.01.2016, 16:24. Показов 727. Ответов 2 Метки нет (Все метки) Найти количество тех элементов массива, которые являются степенями четверки 0

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

17.01.2016, 16:24

Ответы с готовыми решениями:

Найти количество элементов массива, которые являются степенями четверки
Дан список, объектами которого являются числа. Найти количество тех элементов массива, которые являются степенями четверки.

Определить индексы тех элементов массива, которые являются степенями числа 2
Привет друзья, Такая задача - нам доют массив(n) и хотят индексы тех элементов массива,которые явлются степенями числа 2. Примного...

Найти количество тех элементов массива, которые не являются простыми числами
Найти количество тех элементов массива, которые не являются простыми числами, а также найти минимальный элемент среди них. Указания к...

Catstail

Супер-модератор

Эксперт функциональных языков программирования

38173 / 21108 / 4307

Регистрация: 12.02.2012

Сообщений: 34,711

Записей в блоге: 14

17.01.2016, 18:55

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
domains
int=integer
intl=int*
 
predicates
isPowerN(int,int)
task(intl,int)
 
clauses
isPowerN(1,_).
isPowerN(K,N) :- (K mod N) <> 0, fail, !.
isPowerN(K,N) :- (K mod N) = 0, K1=K div 4, isPowerN(K1,N).
 
task([],0).
task([H|T],N) :- isPowerN(H,4), task(T,N1), N=N1+1.
task([H|T],N) :- not(isPowerN(H,4)), task(T,N).

@matvey94 1 / 1 / 0 Регистрация: 13.01.2016 Сообщений: 5
	17.01.2016, 19:04 [ТС]
	Спасибо!!! 0

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

17.01.2016, 19:04

Помогаю со студенческими работами здесь

Найти сумму индексов элементов массива, которые являются степенями числа 2
Привет,такой вопрос... Мне нужна сумма индексов элементов массива,которые являются степенями числа 2,но степени должны вычислятся и...

Вычислить сумму тех элементов массива, индексы которых являются степенями двойки
Даны натуральное n, действительные числа a1, … , an. Вычислить сумму тех элементов массива, индексы которых являются степенями двойки (1,...

Среднее арифметическое тех элементов массива, индексы которых являются степенями двойки
Найдите среднее арифметическое тех элементов массива, индексы которых являются степенями двойки. Не могу понять как это написать =\

Найти наименьшее среди тех элементов массива a1,…,an, которые не являются элементами массива b1,…,bn
Добрый вечер! Пытаюсь решить эту задачу:Найти наименьшее среди тех элементов массива a1,…,an, которые не являются элементами массива...

Найти наименьшее среди тех элементов массива a1,…,an, которые не являются элементами массива b1,…,bn
Найти наименьшее среди тех элементов массива a1,…,an, которые не являются элементами массива b1,…,bn _________________ #include...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Наверх