Помагите с прогой

[Bzzzik]

Люди, помагите написать такую прогу: есть ряд чисел от 1 до n (n<=1000) надо разбить этот ряд на максимально возможное кол - во пар, причем сумма чисел в паре должна быть нечетным числом.
P.S. Подскажите хотябы идею.
Зарание thanks.

[GSerg]

Чётное + чётное = чётное
Чётное + нечётное = нечётное
Нечётное + нечётное = чётное

Думаю, исходя их этого алгоритм очевиден...

[GAGArin]

Если числа нельзя повторять то делим на 2 массива: чет и нечет и составляем пары пока один массив не опустеет (первое четное с первым нечетным и т д).
Если можно повторять (из ряда 1234 надо получить: 12 14 21 23 32 34 41 43) то перебираем первое ечетное со всеми, потом второе... И так же с нечетными.
Хотя может я зря так подробно...

[Bzzzik]

Черт, вот до чего доводят одновременное смотрение телика и написание темы в форуме. Извиняюсь за ошибки:
1 - Тема Помогите..., а не Помагите...
2 - Сумма чисел в паре должна быть простым числом, а не нечетным!!!

[FaKk2]

2 - Сумма чисел в паре должна быть простым числом, а не нечетным!!!

Это вроде то, что делится, только на себя и на 1?
Тогда, добавь цикл, который от 1 до n будет искать кол-во делителей

[corgi]

простое число это будет всегда нечетное число(и еще 2)
а цикл надо делать до корня квадратного из n

[GoGosha]

Люди, помагите написать такую прогу: есть ряд чисел от 1 до n (n<=1000) надо разбить этот ряд на максимально возможное кол - во пар , причем сумма чисел в паре должна быть нечетным числом.
P.S. Подскажите хотябы идею.
Зарание thanks.

А тебе не кажется, что пар всегда будет n / 2

[Bzzzik]

простое число это будет всегда нечетное число(и еще 2)
а цикл надо делать до корня квадратного из n

Чуть чуть поконкретнее, как это сделать?

P.S. Сорри за непонятливость, но тормоз - тоже механизм!

[skiperski]

Задачу надо разбить на две части:
1. получить максимальное кол-во пар
2. сумма пар чисел должна быть простым числом

1. максимальное кол-во пар получим, если будем складывать подряд все числа. Т.к. сумма должна быть простым числом, то она должна быть нечётным числом. Значит надо складывать чётное + нечётное. В условии не оговорено, что суммы должны быть уникальными, т.е., иначе говоря, могут быть одинаковыми. Чтобы получить максимальное кол-во нечётных одинаковых сумм будем складывать последнее число с первым (1000+1=1001), предпоследнее со вторым (999+2=1001) и т.д. Т.о. получим n\2 пар чисел. Причём все суммы будут одинаковы.

2. найдём простое число, наиболее близкое к 1001. В бОльшую сторону 1009, в меньшую 997. В первом случае мы жертвуем 4-мя парами, во втором только двумя. Значит выбираем второй вариант 997 = 996+1. Кол-во пар 498=996\2.

Определение простого числа

Код: Выделить всё

Public Function IsSimple(ByVal n As Long) As Boolean
   
    Dim i&, m&
   
    IsSimple = True
    If (n < 4) Then Exit Function
   
    IsSimple = False
    If (n Mod 2 = 0) Then Exit Function
   
    m = Sqr(n)
   
    For i = 3 To m Step 2
        If (n Mod i = 0) Then
            Exit Function
        End If
    Next
    IsSimple = True
   
End Function

[Алекс]

Люди, помагите написать такую прогу: есть ряд чисел от 1 до n (n<=1000) надо разбить этот ряд на максимально возможное кол - во пар , причем сумма чисел в паре должна быть нечетным числом.
P.S. Подскажите хотябы идею.
Зарание thanks.

А тебе не кажется, что пар всегда будет n / 2

Вот тебе 4 числа, попробуй разбей их на две пары: 2, 5, 82, 106.

[GoGosha]

Люди, помагите написать такую прогу: есть ряд чисел от 1 до n (n<=1000) надо разбить этот ряд на максимально возможное кол - во пар , причем сумма чисел в паре должна быть нечетным числом.
P.S. Подскажите хотябы идею.
Зарание thanks.

А тебе не кажется, что пар всегда будет n / 2

Вот тебе 4 числа, попробуй разбей их на две пары: 2, 5, 82, 106.

Чёто я не понял...

[2,5][82,106]

[Tauron]

2GoGosha:
Ну да, а 188 конечно же простое число.

[Bzzzik]

skiperski, судя по твоей прог-ме из ряда чисел от 1 до 27 отбрасываются числа 1 и 2, из которых можно было бы создать пару.
Может я чего-то недопонял?!

[skiperski]

skiperski, судя по твоей прог-ме из ряда чисел от 1 до 27 отбрасываются числа 1 и 2, из которых можно было бы создать пару.
Может я чего-то недопонял?!

Не в программе, а в алгоритме, но, действительно, лажанулся. Надо ещё раз натравить ентот алгоритм на остаток.

[GAGArin]

Public Function IsSimple(ByVal n As Long) As Boolean

Dim i&, m&

IsSimple = True
If (n < 4) Then Exit Function

IsSimple = False
If (n Mod 2 = 0) Then Exit Function

m = Sqr(n)

For i = 3 To m Step 2
If (n Mod i = 0) Then
Exit Function
End If
Next
IsSimple = True

End Function

Сразу видно програмистский подход к проблеме, но не стоит забывать и о математике.

Простое число большее 6 имеет вид 6n +/- 1.
Ну и еще 1,2,3

[skiperski]

Сразу видно програмистский подход к проблеме, но не стоит забывать и о математике.

Простое число большее 6 имеет вид 6n +/- 1.
Ну и еще 1,2,3

А я и не забываю! Трудно забыть то чего никогда не знал.
А это точно? Достоверно на 100%?

[GAGArin]

А ты проверь...