Сколькими способами можно разложить на равные кучки 36 орехов? - VBA

  1. ...Вот только в 6 классе нам не впаривали VBA и не заставляли решать задачи с его помощью. Задача: сколькими способами можно разложить на равные кучки 36 орехов? Описать способы разложения на равные кучки.


textual

Код к задаче: «Сколькими способами можно разложить на равные кучки 36 орехов? - VBA»

Sub www()
    Dim n As Long, i As Long, k As Long
    n = 2147483646
    For i = 2 To Int(Sqr(n))
        If n \ i = n / i Then k = k + 2
    Next i
    If (i - 1) ^ 2 <> n Then k = k + 1
    Debug.Print k
End Sub

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.143 из 5



Похожие ответы
  1. Здравствуйте. Нужна ваша помощь. Есть 3 документа, в каждом первый столбец с датами. Нужно написать макрос, который выделит и скопирует текст из каждого документа по датам, которые записаны в 2 ячейки(от какой даты и до какой) в моем документе, и вставил в документ. Буду очень благодарен за помощь.

  1. Здравствуйте, добрые люди! Больше неделю бьюсь над такой задачей, буду очень признателен за помощь! Необходимо решение, которое позволит удалить в ячейке с несколькими значениями все значения, кроме самого первого. Пример прилагаю. Заранее спасибо!!

  1. Здравствуйте, подскажите где я ошибся (значения не те получаются). Есть задание: "Составить программу вычисления функции двумя способами (If Then Else и Select Case). Пояснения 1. При вычислении тригонометрических функций необходимо значение аргумента переводить в радианы. Для этого аргумент функции необходимо умножить 3.142/ 180"

  1. У меня завтра зачёт с энономической информатики. И мне нужно запрограмировать следующие методы сортировки массивов средствами МS Excel: пузырьком, вставки и выбора + метод бинарного поиска. Буду очень признателен если кто-то сможет помось написать перограммный код для этих методов. Там не надо никаких форм и т.п. Вывод через обычный cells... Заранее благодарю!

  1. Привет всем. Задача такая, нужно заливать данные, вводимые в форме, в разные файлы Excel. Например нужно в файл1.лист2.ячейка(1,3) залить слово "Принтеры".

  1. 1. В правление избрано m человек. Из них надо выбрать председателя, секретаря и казначея. Сколькими способами это можно сделать? 2. Сколькими способами можно составить три пары из n шахматистов??? 3. Сколькими способами можно выбрать 5 номеров из 36??? Решение задачи в виде пользовательской функции Microsoft Excel на языке VBA, в которой а качестве аргументов передаются исходные данные. Функция возвращает единственное значение - решение задачи.

  1. Надо одновременно применить скрытие строк к нескольким несмежными строкам. Строк может быть много. Автофильтр и Расширенный фильтр не подходит, т.к. надо анализировать до 15 столбцов одновременно. Хотя может и можно использовать Расширенный фильтр. Если скрывать по одной строке, то код долго работает. Вот хочу применить скрытие к нескольким строкам одновременно, может быстрее будет. Использовал:

  1. 1. Составить программу для вычисления значений функции z=(a+b)/2, где а изменяется от 0 с шагом 0.2, b – от b0 до bn с шагом hb. Значения a и b изменяются одновременно, т.е. при первом выполнении цикла a = 0, b = b0; при втором – a = 0.2, b = b0 +hb и т.д. 2. Нахождение наибольшего (наименьшего) значения: Составить программу для нахождения наибольшего натурального значения, вводимого с клавиатуры (0 – окончание ввода). помогите пожалуйста! Не втыкаю совсем(

  1. Есть ListBox с 4 столбцами (ColumnCount = 4) Есть 4 массива данных: элементу 1 первого массива соответствует элемент 1 второго, третьего и четвертого массивов. AddItem в ListBox нужно делать так, чтобы соответствующие элементы располагались в ListBox в строчку. Еще один момент: возможно ли в верхней строке листбокса организовать заголовки столбцов? или поместить перый элемент в поля заголовков