{"draftJsState":{"blocks":[{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Простых чисел бесконечное множество. В интернете в свободном доступе можно найти таблицы простых чисел до 21 000 000. Существующие методы проверки чисел на простоту очень сложны, не универсальны, поэтому мной разработан еще один способ проверки числа на простоту для чисел больше 10.","type":"unstyled","key":"2k5p2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Простое число – целое положительное число, которое имеет два различных натуральных делителя: единицу и самого себя, то есть, если число можно разложить на множители значит оно не простое – а составное.","type":"unstyled","key":"4tft7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Пусть А – натуральное число, тогда","type":"unstyled","key":"mctg"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":47,"offset":0,"style":"ITALIC"}],"text":" А=Х*Y,","type":"unstyled","key":"35t3q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"где Х и Y – натуральные числа.","type":"unstyled","key":"6c414"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Мы знаем, что простые числа не четные, и все числа, заканчивающиеся на 5 и 0 кратны пяти, значит, простые числа всегда заканчиваются на 1, 3, 7, 9. Выберем из таблицы умножения примеры, в которых последняя цифра произведения равна 1 или 3 или 7 или 9 (смотрим рисунок).","type":"unstyled","key":"atlq3"},{"data":{"image":{"id":"60e3d597fc247b0058d4f3d5"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"7idnu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Получаем, что бы последняя цифра числа А была равна 1 – последние цифры чисел Х и Y должны быть 1 и 1 (1х1=1) или 3 и 7 (3х7=21) или 9 и 9 (9х10=81).","type":"unstyled","key":"etnu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Что бы последняя цифра числа А была равна 3 – последние цифры чисел Х и Y должны быть равны 1 и 3 (1х3=3) или 7 и 9 (7х9=63).","type":"unstyled","key":"4dojo"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Что бы последняя цифра числа А была равна 7 – последние цифры чисел Х и Y должны быть равны 1 и 7 (1х7=7) или 3 и 9 (3х9=27).","type":"unstyled","key":"ceds2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Что бы последняя цифра числа А была равна 9 – последние цифры числе Х и Y должны быть равны 1 и 9 (1х9=9) или 3 и 3 (3х3=9) или 7 и 7 (7х7=49).","type":"unstyled","key":"fr9vk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Рассмотрим каждую пару последних цифр для Х и Y по отдельности.","type":"unstyled","key":"1k828"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Для пары 1 и 1. Пусть Х =х1, где 1 – последняя цифра числа Х, а х – оставшаяся цифровая часть числа Х без последнего числа. Аналогично Y=y1, где 1 - последняя цифра числа Y, а y – оставшаяся цифровая часть числа Y. Тогда A=x1*y1. Произведем умножение в столбик.","type":"unstyled","key":"9r81k"},{"data":{"image":{"id":"60e3d654b5e3de27ea902877"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"211vf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Получаем, 100*x*y+10*(x+y)+1=A , откуда","type":"unstyled","key":"f9kic"},{"data":{"image":{"id":"60e3d755fc247b0058d749ce"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"65h3g"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Мы получили уравнение с двумя переменными при известном А. Решений данного уравнения множество, но при условии, что х и у – натуральные, количество решений конечно, или вообще их нет в целочисленном выражении. Получается, если решений нет в натуральных числах, то А является простым числом.","type":"unstyled","key":"8aiqr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Для остальных пар выполняем аналогичные действия и получаем:","type":"unstyled","key":"ci1ki"},{"data":{"image":{"id":"60e3d7771e4c070e1bfe007e"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"bhvlk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Решение полученных уравнений при больших А – задача трудоемкая, поэтому была написана программа для определения простоты числа согласно нашим уравнениям.","type":"unstyled","key":"b2tlv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Код написан на Visual Basic.","type":"unstyled","key":"clghs"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Sub число()","type":"blockquote","key":"8q0mp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim x As Long, y As Double, A As Long, a1 As Double, b As Long, c As Long, d As Double, d1 As Long, d2 As Double, d3 As Long, d4 As Double, d5 As Long, y1 As Long, y2 As Double, y3 As Long, y4 As Double, y5 As Long, W As Integer","type":"blockquote","key":"cv1rh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = 1","type":"blockquote","key":"9ui0q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"A = InputBox(\"Введите число\")","type":"blockquote","key":"30d8i"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = A / 10","type":"blockquote","key":"l6pr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"co6u6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = A - 10 * b","type":"blockquote","key":"e0i9c"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"d = A / 3","type":"blockquote","key":"4p90g"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"d1 = Fix(d)","type":"blockquote","key":"1euq5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"d2 = A / 7","type":"blockquote","key":"1s5q4"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"d3 = Fix(d2)","type":"blockquote","key":"cnhbd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"d4 = A / 9","type":"blockquote","key":"4lo0f"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"d5 = Fix(d4)","type":"blockquote","key":"1qac9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = 10","type":"blockquote","key":"7tao2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y2 = 10","type":"blockquote","key":"c7m3j"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y4 = 10","type":"blockquote","key":"e3j1"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"W = 1","type":"blockquote","key":"afrjc"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If c = 1 And d1 <> d And d2 <> d3 And d4 <> d5 Then","type":"blockquote","key":"cihjo"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 0 Or y2 >= 0 Or y4 >= 0 And W = 1","type":"blockquote","key":"ebgu9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (A - 21 - 70 * x) / (100 * x + 30)","type":"blockquote","key":"mfnu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"6mhn5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y2 = (A - 81 - 90 * x) / (100 * x + 90)","type":"blockquote","key":"bdq2j"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y3 = Fix(y2)","type":"blockquote","key":"aj8io"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y4 = (A - 1 - 10 * x) / (100 * x + 10)","type":"blockquote","key":"86f45"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y5 = Fix(y4)","type":"blockquote","key":"6sgrm"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 Or y2 = y3 Then W = 0","type":"blockquote","key":"4rjgh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y5 = y4 Then If y4 <> 0 Then W = 0","type":"blockquote","key":"akiap"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"7lbc5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"c7jq4"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"f6jas"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"d03f9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If c = 3 And d1 <> d And d2 <> d3 And d4 <> d5 Then","type":"blockquote","key":"fsom1"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 0 Or y2 >= 0 And W = 1","type":"blockquote","key":"dqbvn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (A - 3 - 30 * x) / (100 * x + 10)","type":"blockquote","key":"euhs7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"bq2hd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y2 = (A - 63 - 90 * x) / (100 * x + 70)","type":"blockquote","key":"b61k1"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y3 = Fix(y2)","type":"blockquote","key":"9ukf0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 Or y2 = y3 Then W = 0","type":"blockquote","key":"benh6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"e4obf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"7c3t2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"2loth"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"e7ddd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If c = 7 And d1 <> d And d2 <> d3 And d4 <> d5 Then","type":"blockquote","key":"f24f"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 0 Or y2 >= 0 And W = 1","type":"blockquote","key":"720op"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (A - 7 - 70 * x) / (100 * x + 10)","type":"blockquote","key":"b844b"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"d1q2c"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y2 = (A - 27 - 90 * x) / (100 * x + 30)","type":"blockquote","key":"a1bcv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y3 = Fix(y2)","type":"blockquote","key":"4mm34"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 Or y2 = y3 Then W = 0","type":"blockquote","key":"au172"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"5rjnl"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"7lrpv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"8ujcl"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"2s3uj"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If c = 9 And d1 <> d And d2 <> d3 And d4 <> d5 Then","type":"blockquote","key":"c3chg"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 0 Or y2 >= 0 Or y4 >= 0 And W = 1","type":"blockquote","key":"6hs0h"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (A - 9 - 90 * x) / (100 * x + 10)","type":"blockquote","key":"76bd6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"5d6kc"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y2 = (A - 9 - 30 * x) / (100 * x + 30)","type":"blockquote","key":"buo0l"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y3 = Fix(y2)","type":"blockquote","key":"71i7j"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y4 = (A - 49 - 70 * x) / (100 * x + 70)","type":"blockquote","key":"63v2v"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y5 = Fix(y4)","type":"blockquote","key":"i0qk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 Or y2 = y3 Or y4 = y5 Then W = 0","type":"blockquote","key":"af6jv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"695hh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"48r81"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"6786u"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"4s36q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If c = 2 Or c = 4 Or c = 6 Or c = 8 Or c = 0 Or c = 5 Or d = d1 Or d2 = d3 Or d4 = d5 Then W = 0","type":"blockquote","key":"bbcm5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If A = 3 Or A = 5 Or А=2 or A = 7 Then W = 1","type":"blockquote","key":"4h8jf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If A = 1 Then W = 0","type":"blockquote","key":"cu9h1"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If W = 1 Then MsgBox \"число простое\" Else: MsgBox \"число составное\"","type":"blockquote","key":"7t23"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End Sub","type":"blockquote","key":"5frp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Данный макрос, написанный на Visual Basic, имеет ряд недостатков. Он ограничен вычислительными возможностями excel и при больших числах более 400млн для предположительно простых чисел выдает ошибку о переполнении. Но, для составных чисел, так как алгоритм после нахождения одного из возможных множителей дальше не считает, макрос считает большие числа. Время расчета в VB составляет 1-5 секунд. Так как расчетные уравнения рассчитаны для чисел больших 10, то простота чисел из первого десятка просто добавлена в макрос.","type":"unstyled","key":"5ov3a"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Таким образом, получен математический способ проверки числа на простоту и написан программный код в Visual Basicдля его реализации. Но так как вычислительные возможности в Visual Basicограничены, для проверки простоты больших чисел требуется написание программы на других языках программирования.","type":"unstyled","key":"6o5u8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"2j74r"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"marker","key":"5XPH9o1BYbV8SYQk3ZLb"}],"entityMap":{}},"mentions":[]}