Интересная задача не для даунов.

[rubish]

а тогда что ты тут делаешь?

подъеб на 5 

сам так в 5 классе одноклассников подъебывал

[dENIM]

сам так в 5 классе одноклассников подъебывал

подъеб на 5

 

[Sneg]

Офк все сразу начнут гуглить, но не тут-то было. Изменил условие.

Итак, надо написать алгоритм для нахождения наименьшего числа, которое можно разделить без остатка на все числа от 1 до n?

Входные данные: n > 1, Выходные: Число.

Контрольное задание для проверки: n = 50, result = 3099044504245996706400;

 

Пошло поехало.

програмирование для быдла.

 

дискач

[InFlames]

Экзешник http://onemove.ru/get/46146/

 

 

NUM := 50
Gui, add, edit, w150 r1 
Gui, add, Updown, vNUM , %NUM%
Gui, add, button, , OK
Gui, +ToolWindow
Gui, show,, ^_^
return

buttonOK:
    Gui, submit, NoHide
    If Num is digit
        If Num is integer
            MsgBox % Prime_Erat(NUM, quantity := 0)
return

Prime_Erat(NUM, ByRef quantity)
{
    #NoEnv
    SetBatchLines, -1
    sqr_lim := Floor(Sqrt(NUM))
    Prime := 2 
    While (Prime <= sqr_lim)
    {
        if !Composite%Prime% 
        {
            Is_Prime .= Prime ", "
            quantity++
            j := Prime * Prime
            While (j <= NUM)
            {
                Composite%j% := True
                j += Prime
            }
        }
        Prime++
    }

    While (Prime <= NUM)
    {
        if !Composite%Prime%
        {
            Is_Prime .= Prime ", "
            quantity++
        }
        Prime++
    }
    Is_Prime := SubStr(Is_Prime, 1, -2)
    Loop, parse, Is_Prime, `,
        Result := Result ? (Result * A_LoopField) : A_LoopField
    Return Result
}

GuiClose:
GuiEscape:
ExitApp

[Greaver]

Ахахах конченные уебаны в треде

Ответ - НОК всех чисел от 1 до N, эта задача для даунов ебаных каких-то

 

Ну и офк http://oeis.org/A003418

[SailorMoon]

Существует ли треугольник с целочисленными сторонами, медианами и площадью?

Какое наибольшее количество непересекающихся окружностей единичного радиуса можно разместить на сфере радиуса R?

Можно ли заполнить 7-мерное пространство равными 7-мерными гиперкубами так, чтобы никакие два гиперкуба не имели целой общей 6-мерной гиперграни? (Известно, что для пространств размерности меньше 7 ответ отрицателен, а больше 7 — положителен)

Чему равна сторона наименьшего квадрата, в который можно упаковать 2 единичных круга, один из которых разрешается разрезать по хорде на 2 сегмента?

Существует ли плотное множество точек на плоскости, расстояние между каждыми двумя точками которого рационально?

Нихуя не могу решить

[utility]

множество точек с рациональными координатами вроде подходит

[firexqu]

я даун чтоли?

[Ramil]

Экзешник http://onemove.ru/get/46146/

 

 

NUM := 50
Gui, add, edit, w150 r1 
Gui, add, Updown, vNUM , %NUM%
Gui, add, button, , OK
Gui, +ToolWindow
Gui, show,, ^_^
return

buttonOK:
    Gui, submit, NoHide
    If Num is digit
        If Num is integer
            MsgBox % Prime_Erat(NUM, quantity := 0)
return

Prime_Erat(NUM, ByRef quantity)
{
    #NoEnv
    SetBatchLines, -1
    sqr_lim := Floor(Sqrt(NUM))
    Prime := 2 
    While (Prime <= sqr_lim)
    {
        if !Composite%Prime% 
        {
            Is_Prime .= Prime ", "
            quantity++
            j := Prime * Prime
            While (j <= NUM)
            {
                Composite%j% := True
                j += Prime
            }
        }
        Prime++
    }

    While (Prime <= NUM)
    {
        if !Composite%Prime%
        {
            Is_Prime .= Prime ", "
            quantity++
        }
        Prime++
    }
    Is_Prime := SubStr(Is_Prime, 1, -2)
    Loop, parse, Is_Prime, `,
        Result := Result ? (Result * A_LoopField) : A_LoopField
    Return Result
}

GuiClose:
GuiEscape:
ExitApp

инфламес и автохоткей

автохоткей и инфламес

[A.B.S.E.N.T.]

Экзешник http://onemove.ru/get/46146/

 

 

NUM := 50
Gui, add, edit, w150 r1 
Gui, add, Updown, vNUM , %NUM%
Gui, add, button, , OK
Gui, +ToolWindow
Gui, show,, ^_^
return

buttonOK:
    Gui, submit, NoHide
    If Num is digit
        If Num is integer
            MsgBox % Prime_Erat(NUM, quantity := 0)
return

Prime_Erat(NUM, ByRef quantity)
{
    #NoEnv
    SetBatchLines, -1
    sqr_lim := Floor(Sqrt(NUM))
    Prime := 2 
    While (Prime <= sqr_lim)
    {
        if !Composite%Prime% 
        {
            Is_Prime .= Prime ", "
            quantity++
            j := Prime * Prime
            While (j <= NUM)
            {
                Composite%j% := True
                j += Prime
            }
        }
        Prime++
    }

    While (Prime <= NUM)
    {
        if !Composite%Prime%
        {
            Is_Prime .= Prime ", "
            quantity++
        }
        Prime++
    }
    Is_Prime := SubStr(Is_Prime, 1, -2)
    Loop, parse, Is_Prime, `,
        Result := Result ? (Result * A_LoopField) : A_LoopField
    Return Result
}

GuiClose:
GuiEscape:
ExitApp

инфламес и автохоткей

автохоткей и инфламес

весьма ебет не по хуйне