Все технические форумы на одном сайте Удобный поиск информации с популярных форумов в одном месте
Вопрос: Заработать >1000 долларов меньше чем за 1 день

Всем привет. Как всем известно блокчейн стремительно развивается. Не так давно появился новый блокчейн NEBULAS, который один из не многих реально работает над своим проектом.
И так: для популяризации своего проекта, они за создание ЛЮБОГО приложения на собственной платформе (может быть написано на JAVA), которое соответствует некоторым критериям, они будут давать 100 своих монет(на данный момент это 1100 долларов). Эта программа начинается 7 мая и продлится до 2 июля.

регистрируемся:  (регистрируясь по этой ссылке вы получите доп монеты и отблагодарите автора за распространения этого способа заработать)


 часть 1 
часть 2 
часть 3 

инструкция 

всю полезную инфу, как это делать, можно найти здесь 
ТРЕБУЮТСЯ ЗНАНИЯ JAVA НИЖЕ СРЕДНЕГО

Добавлено @ 18:24
Забыл написать, если вы решите серьёзно заняться этой программой, то за лучшее приложения дают 10 000 монет (100к баксов) за второе место 50 к баксов, за третье 30к, за следующие семнадцать по 3к

Добавлено через 6 минут и 57 секунд
Делитесь полезными ссылками

Это сообщение отредактировал(а) Levs503 - 5.5.2018, 18:24
Ответ:
Всем привет. Как всем известно блокчейн стремительно развивается. Не так давно появился новый блокчейн NEBULAS, который один из не многих реально работает над своим проектом.
И так: для популяризации своего проекта, они за создание ЛЮБОГО приложения на собственной платформе (может быть написано на JAVA), которое соответствует некоторым критериям, они будут давать 100 своих монет(на данный момент это 1100 долларов). Эта программа начинается 7 мая и продлится до 2 июля.

регистрируемся:  (регистрируясь по этой ссылке вы получите доп монеты и отблагодарите автора за распространения этого способа заработать)


 часть 1 
часть 2 
часть 3 

инструкция 

всю полезную инфу, как это делать, можно найти здесь 
ТРЕБУЮТСЯ ЗНАНИЯ JAVA НИЖЕ СРЕДНЕГО

Добавлено @ 18:24
Забыл написать, если вы решите серьёзно заняться этой программой, то за лучшее приложения дают 10 000 монет (100к баксов) за второе место 50 к баксов, за третье 30к, за следующие семнадцать по 3к

Добавлено через 6 минут и 57 секунд
Делитесь полезными ссылками

Это сообщение отредактировал(а) Levs503 - 5.5.2018, 18:24
Вопрос: Задано число b > 0. Найти наименьшее натуральное n, для которого выполняется √n/(n+1)>b

Задано число b > 0. Найти наименьшее натуральное n, для которого выполняется √n/(n+1)>b
Ответ: Какое значение b вводилось?


Как видишь, нормально работает, если вводить правильное значение (для этого надо перечитать предыдущий пост)
Вопрос: Дано целое число N (N>1). Найти наименьшее целое число К

Дано целое число N (N>1). Найти наименьшее целое число К, при котором выполняется неравенство 3 в степени К > N.
Ответ:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
DIM n AS LONG
DIM i AS LONG
 
INPUT "N = "; n
 
DO WHILE 3 ^ k <= n
   k = k + 1
LOOP
 
PRINT k
END
Вопрос: Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N C++

Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + ... + 1/N будет больше A, и саму эту сумму.
Ответ:
C++
1
2
3
4
5
6
7
8
9
int n=1;//самое минимальное число целое число
    do//бесконечный цикл
    {
        sum=0;//обнуляем сумму
        for (int i=1;i<=n;i++)// для текущего n расчитываем сумму ряда 1 + 1/2 + ... + 1/N
            sum+=1./i;
        if (a<sum) break; // если выполняется условие, прекращаем работу цикла
        n++;
    }while(1);
Вопрос: Дано целое число N (>1). Вывести наименьшее из целых чисел К, для которых сумма 1 + 2 + ... + К будет больше или равна N

Дано целое число N (>1). Вывести наименьшее из целых чисел К, для которых сумма 1 + 2 + ... + К будет больше или равна N , и саму эту сумму.
Ответ: А в С++ можно?
Вопрос: Найти наименьшее общее кратное набора из N целых чисел, лежащих в диапазоне от 1 до 1000

Найти наименьшее общее кратное набора из N целых чисел, лежащих в диапазоне от 1 до 1000. Под наименьшим общим кратным набора чисел понимается наименьшее из таких чисел, которые делятся на любое из чисел набора.
Формат ввода
В первой строке задается количество чисел N (1 ≤ N ≤ 20) в наборе. Во второй строке перечисляются через пробел в любом порядке все N целых чисел набора.
Формат вывода
Вывести полученное наименьшее общее кратное для заданного набора чисел.

Пример ввода:
4
1 5 6 4
Пример вывода:
60
Ответ:
Код C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#include <stdio.h>
 
typedef long long ll;
 
ll gcd(ll a, ll b){
    return (b) ? gcd(b, a % b) : a;
}
 
ll lcm(ll a, ll b){
    return a / gcd(a, b) * b;
}
 
int main(){
    int q;
    scanf("%d",&q);
    ll ans = 1;
    while (q--){
        int x;
        scanf("%d",&x);
        ans = lcm(ans, x);
    }
    printf("%lld\n", ans);
    return 0;
}
Вопрос: ADOQuery возвращает не более 1000 записей

Чрезе ADOQuery считываю из Active Directory список пользователей:
SELECT CN FROM 'LDAP:\\...'
Почему то извлекается только 1000 записей, по крайней мере свойство
RecordCount показывает 1000.
А в AD около 2000 пользователей.
Это что, ограничение ADO?
Delphi 7 / клиент XP SP2 / сервер W2003server
Ответ: Active Directory ограничивает количество отданных учетных записей за 1 раз. Сделано это для ограничения нагрузки на контроллеры домена. Решается правкой AD:


C:\>ntdsutil
ntdsutil: ldap policies
ldap policy: connections
server connections: set creds DOMAINNAME USERNAME PASSWORD
server connections: connect to server SERVER_FQDN
Binding to SERVER_FQND as DOMAINNAME\USERNAME…
Connected to SERVER_FQND as DOMAINNAME\USERNAME.
server connections: quit
ldap policy: set maxpagesize to 2000
ldap policy: commit changes
Вопрос: Дано целое число N (> 1)

Добрый день!Пожалуйста помогите с решением вот такой задачи!
Дано целое число N (> 1). Вывести наименьшее целое K, при котором выполняется неравенство 3K > N, и само значение 3K.
необходимо решить на C# Windows Forms
Ответ:
Сообщение от tatyanka_19
(double)(N + 1)
Попробуйте явное преобразование:
Код C#
1
Convert.ToDouble(N + 1)
PS: если значения К будут не такими, которые по идее должна выдавать программа, попробуйте тройку так же преобразовать в double (то есть, вместо 3 писать 3.0). Это всё нужно для того, чтобы программа не преобразовывала результат деления N / 3 или (N + 1) / 3 в int (то есть, отбрасывала дробную часть, которая нам нужна =) )
Вопрос: Вывести наименьшее из целых чисел K

Помогите пожалуйста. Что не так?
Дано число A (> 1). Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim c As Long
  Dim a, b As Variant
  a = TextBox1.Text
  c = 1
  b = 1
  
  Do
   c = c + 1
   b = b + 1 / c
   Loop While b <= a
  TextBox2.Text = Str(c)
  TextBox3.Text = Str(b)
End Sub
Ответ:
Сообщение от russ2901
Что не так?
Переменные типа Variant, в переменной а - текст, в переменной b - число.
При сравнении переменных типа Variant любое число меньше любого текста. Пример из Immediate
Visual Basic
1
2
3
4
5
?999<"0"
False
'но!!!
?cvar(999)<cvar("0")
True
Вывод: используйте переменные правильного типа или используйте функции преобразования типа.
F1 - Comparison Operators
F1 - Type Conversion Functions
Вопрос: Определить, в каком месяце больше всего нерабочих дней

Добрый день.
Прошу помощи с решением вот такой задачи:

>> Выходные и праздничные дни заданы списком пар (день, месяц).
Определить, в каком месяце больше всего нерабочих дней.


Заранее благодарю за любое участие.
Ответ: Hepworth, я в HomeLisp писал. Все работает.

Добавлено через 25 минут
Можно и вот так (HomeLisp):

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
(defun task (lst)
  (let ((h (gensym 'h)) (max 0))
    (hashCreate h)
    (iter (for p in lst)
       (if (hashKeyExist h (car p)) 
           (let ((v (car (hashGet h (car p)))))
                 (hashErase h (car p))
                 (hashPut h (car p) (+ v 1) ))
           (hashPut h (car p) 1)))
    (hashMap h (lambda (k v) (setf max (if (> v max) v max))))
    (hashMap h (lambda (k v) (when (= v max) (printline k))))
    (hashDestroy h)))
 
==> task
 
(task '((1 1) (1 2) (2 23) (3 8) (5 1) (5 2) (5 9)))
 
5
 
==> T
 
(task '((1 1) (1 2) (1 3) (2 23) (3 8) (5 1) (5 2) (5 9)))
 
1
5
 
==> T