{"draftJsState":{"blocks":[{"data":{},"depth":0,"entityRanges":[{"key":0,"length":20,"offset":9}],"inlineStyleRanges":[],"text":" В предыдущей статье был описан способ проверки чисел на простоту. Согласно которому, расчет выполняется в зависимости от того на какую цифру заканчивается проверяемое число А (см. рисунок).","type":"unstyled","key":"f4a70"},{"data":{"image":{"id":"60e3d96c21f45644dfaae9f6"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"bgoec"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Используя данные уравнения можно написать программу для разложения любого числа на множители. Программа написана на Visual Basic.","type":"unstyled","key":"g3nk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Sub разложение числа()","type":"blockquote","key":"5e8if"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Dim A As Long, a1 As Double, a2 As Double, b As Long, b1 As Long, b2 As Long, b3 As Long, c As Long, r As Long, p As Long, f As Double, k As Double, x As Long, y As Double, y1 As Long, y2 As Double, t As Long, t1 As Long, t2 As Long, t3 As Long, t4 As Long, t5 As Long, t6 As Long, t7 As Long","type":"blockquote","key":"4gpmh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"A = InputBox(\"Введите число\")","type":"blockquote","key":"77p0s"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = A / 10","type":"blockquote","key":"ccdpp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"7spv9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = A - 10 * b","type":"blockquote","key":"bdfso"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"r = A","type":"blockquote","key":"eihum"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"p = A","type":"blockquote","key":"13ja"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t = 1","type":"blockquote","key":"3m3ab"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While c = 2 Or c = 4 Or c = 6 Or c = 8 Or c = 0","type":"blockquote","key":"23ej8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"p = r / 2","type":"blockquote","key":"1dk24"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = p / 10","type":"blockquote","key":"2fm36"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b1 = Fix(a1)","type":"blockquote","key":"35hd0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = p - 10 * b1","type":"blockquote","key":"5asoq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"r = p","type":"blockquote","key":"m77k"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"ekiff"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t = A / p","type":"blockquote","key":"6lkud"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t <> 1 Then MsgBox \"кратно 2\"","type":"blockquote","key":"48vip"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t1 = 1","type":"blockquote","key":"b4iv3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While c = 5","type":"blockquote","key":"6hbi7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"p = r / 5","type":"blockquote","key":"b8uls"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a2 = p / 10","type":"blockquote","key":"aofoo"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b2 = Fix(a2)","type":"blockquote","key":"52h1u"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = p - 10 * b2","type":"blockquote","key":"cpe5i"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"r = p","type":"blockquote","key":"375v7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"b03fg"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t1 = A / (p * t)","type":"blockquote","key":"43r8v"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t1 <> 1 Then MsgBox \"кратно 5\"","type":"blockquote","key":"6i26p"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"f = r","type":"blockquote","key":"d35tp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do","type":"blockquote","key":"90d60"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"k = f / 3","type":"blockquote","key":"ct783"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b3 = Fix(k)","type":"blockquote","key":"29ip0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"f = k","type":"blockquote","key":"duckm"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop While b3 = k","type":"blockquote","key":"ao3i0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t2 = A / (f * 3 * t * t1)","type":"blockquote","key":"6fr9g"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t2 <> 1 Then MsgBox \"кратно 3\"","type":"blockquote","key":"egk3s"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If f <> r Then r = k * 3","type":"blockquote","key":"fo8kg"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"f = r","type":"blockquote","key":"auijf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do","type":"blockquote","key":"267qa"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"k = f / 7","type":"blockquote","key":"fk3hi"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b3 = Fix(k)","type":"blockquote","key":"3nm1h"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"f = k","type":"blockquote","key":"b8k72"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop While b3 = k","type":"blockquote","key":"6esr0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t3 = A / (f * 7 * t * t1 * t2)","type":"blockquote","key":"6rk42"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t3 <> 1 Then MsgBox \"кратно 7\"","type":"blockquote","key":"8fvtt"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If f <> r Then r = k * 7","type":"blockquote","key":"1q2un"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"dqddo"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"8l0f8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"t4g6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Line:","type":"blockquote","key":"1filt"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = 10","type":"blockquote","key":"f56i3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = 1","type":"blockquote","key":"80flo"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 0 And c = 1","type":"blockquote","key":"r78e"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (r - 21 - 70 * x) / (100 * x + 30)","type":"blockquote","key":"choqg"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"fai44"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 Or y = 0 Then","type":"blockquote","key":"4mpm2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t4 = 10 * x + 3","type":"blockquote","key":"6n60j"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t4 <> 1 Then MsgBox t4","type":"blockquote","key":"4kor1"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"r = r / t4","type":"blockquote","key":"277er"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"4k4vk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"d3a6p"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"a2k5k"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"eqmo1"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"8dqtf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"91k2j"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"fvhev"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = 10","type":"blockquote","key":"4oj04"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = 1","type":"blockquote","key":"2lhe5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 0 And c = 1","type":"blockquote","key":"3fcfs"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (r - 81 - 90 * x) / (100 * x + 90)","type":"blockquote","key":"9eg15"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"6j5sf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 Or y = 0 Then","type":"blockquote","key":"8rm9k"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t4 = 10 * x + 9","type":"blockquote","key":"cb8t0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t4 <> 1 Then MsgBox t4","type":"blockquote","key":"4t8r6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"r = r / t4","type":"blockquote","key":"1kdf7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"fkkht"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"3h5a3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"fv418"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"a5n2e"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"fpdfv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"7u3hg"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"5v671"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = 10","type":"blockquote","key":"f9sbl"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = 1","type":"blockquote","key":"aqd2i"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 1 And c = 1","type":"blockquote","key":"bbmjt"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (r - 1 - 10 * x) / (100 * x + 10)","type":"blockquote","key":"4su7a"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"3tab5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y2 = 10 * y + 1","type":"blockquote","key":"8saud"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 And r <> y2 And y <> 0 Then","type":"blockquote","key":"fnpp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t4 = 10 * x + 1","type":"blockquote","key":"d8tju"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t4 <> 1 Then MsgBox t4","type":"blockquote","key":"71ddb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"r = r / t4","type":"blockquote","key":"1kump"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"di80h"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"47oe3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"apniu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If c = 1 Then GoTo Line","type":"blockquote","key":"aivrs"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"1jaqu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"1pjmf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"70etk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"178gs"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"csj4r"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"34ijh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"dv292"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"line1:","type":"blockquote","key":"96c5s"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = 10","type":"blockquote","key":"82t24"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = 1","type":"blockquote","key":"f85dl"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 0 And c = 3","type":"blockquote","key":"345ls"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (r - 3 - 30 * x) / (100 * x + 10)","type":"blockquote","key":"1d5p"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"cophr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 Or y = 0 Then","type":"blockquote","key":"64fut"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t5 = 10 * x + 1","type":"blockquote","key":"5q65h"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t5 <> 1 Then MsgBox t5","type":"blockquote","key":"ch30j"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"r = r / t5","type":"blockquote","key":"b5r7m"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"djhcn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"88uot"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"9co"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If c = 3 Then GoTo line1","type":"blockquote","key":"22f2j"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"6mtj4"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"blrkd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"5i6ol"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"60pm7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"48iu0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"a87tj"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"5aft3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = 10","type":"blockquote","key":"7rr11"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = 1","type":"blockquote","key":"3d2jq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 0 And c = 3","type":"blockquote","key":"38ati"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (r - 63 - 90 * x) / (100 * x + 70)","type":"blockquote","key":"38lto"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"13qj8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 Or y = 0 Then","type":"blockquote","key":"dsr7p"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t5 = 10 * x + 7","type":"blockquote","key":"bqgbo"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t5 <> 1 Then MsgBox t5","type":"blockquote","key":"1u1u0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"r = r / t5","type":"blockquote","key":"5fbn1"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"e4ubl"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"1rgs3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"4vnlj"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"8133j"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"dnq3a"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"1rqcs"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"59kbb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"line2:","type":"blockquote","key":"5d530"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = 1","type":"blockquote","key":"60bk0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = 10","type":"blockquote","key":"c2knt"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 0 And c = 7","type":"blockquote","key":"5j7mn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (r - 7 - 70 * x) / (100 * x + 10)","type":"blockquote","key":"1k2sr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"fv6on"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 Or y = 0 Then","type":"blockquote","key":"74tp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t6 = 10 * x + 1","type":"blockquote","key":"air9m"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t6 <> 1 Then MsgBox t6","type":"blockquote","key":"hpch"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"r = r / t6","type":"blockquote","key":"81ab2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"24vk5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"fs56s"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"4f02d"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If c = 7 Then GoTo line2","type":"blockquote","key":"79dg1"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"c42n9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"7ober"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"e6nos"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"6l86p"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"hdun"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"m67q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"db671"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = 10","type":"blockquote","key":"ejgd2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = 1","type":"blockquote","key":"91s87"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 0 And c = 7","type":"blockquote","key":"cio8n"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (r - 27 - 90 * x) / (100 * x + 30)","type":"blockquote","key":"ng1q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"auof6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 Or y = 0 Then","type":"blockquote","key":"5j8gv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t6 = 10 * x + 3","type":"blockquote","key":"3suff"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t6 <> 1 Then MsgBox t6","type":"blockquote","key":"dut0n"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"r = r / t6","type":"blockquote","key":"9sus2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"38b86"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"5bk1t"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"67tc"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"cueej"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"e7b2o"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"8sktp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"2uupk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"line3:","type":"blockquote","key":"2o07b"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = 1","type":"blockquote","key":"1746s"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = 10","type":"blockquote","key":"4ss3q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 0 And c = 9","type":"blockquote","key":"d918v"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (r - 9 - 90 * x) / (100 * x + 10)","type":"blockquote","key":"3udl1"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"9fr1r"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 Or y = 0 Then","type":"blockquote","key":"i6db"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t7 = 10 * x + 1","type":"blockquote","key":"1jv3h"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t7 <> 1 Then MsgBox t7","type":"blockquote","key":"bhmip"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"r = r / t7","type":"blockquote","key":"duc5e"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"dnman"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"dp075"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"2ohrk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If c = 9 Then GoTo line3","type":"blockquote","key":"k1bv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"21i24"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"9pi49"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"ftst8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"egocb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"96qu1"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"7mvui"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"9536m"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = 1","type":"blockquote","key":"a19bk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = 10","type":"blockquote","key":"17k5m"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 0 And c = 9","type":"blockquote","key":"5qsov"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (r - 9 - 30 * x) / (100 * x + 30)","type":"blockquote","key":"2dfki"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"14q62"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 Or y = 0 Then","type":"blockquote","key":"all17"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t7 = 10 * x + 3","type":"blockquote","key":"c4c64"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t7 <> 1 Then MsgBox t7","type":"blockquote","key":"8421t"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"r = r / t7","type":"blockquote","key":"tiee"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"7a8jr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"fs0hv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"8gena"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If c = 3 Then GoTo line1","type":"blockquote","key":"d46n3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"14gu4"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"afqve"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"ad4lc"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"a4mrt"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"10uak"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"94qds"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"doko4"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = 1","type":"blockquote","key":"ccfvb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = 10","type":"blockquote","key":"uibc"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Do While y >= 0 And c = 9","type":"blockquote","key":"bakgk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y = (r - 49 - 70 * x) / (100 * x + 70)","type":"blockquote","key":"aj9f2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"y1 = Fix(y)","type":"blockquote","key":"fksgn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If y = y1 Or y = 0 Then","type":"blockquote","key":"9m5dp"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"t7 = 10 * x + 7","type":"blockquote","key":"dl2uh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If t7 <> 1 Then MsgBox t7","type":"blockquote","key":"akdcv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"r = r / t7","type":"blockquote","key":"7m638"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"a1 = r / 10","type":"blockquote","key":"76qe9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"b = Fix(a1)","type":"blockquote","key":"bi8u9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"c = r - 10 * b","type":"blockquote","key":"6ps1d"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"If c = 7 Then GoTo line2","type":"blockquote","key":"f0keo"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Else:","type":"blockquote","key":"6a4ej"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End If","type":"blockquote","key":"fj414"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"x = x + 1","type":"blockquote","key":"e7cja"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Loop","type":"blockquote","key":"4mpva"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"MsgBox r","type":"blockquote","key":"e7d4q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"End Sub","type":"blockquote","key":"3bd29"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Данная программа имеет ряд недостатков. Главный недостаток – ограниченность вычислительной способности Visual Basic в excel. Для больших чисел необходимо переписывать программный код на других языках программирования. Для чисел кратных 2, 5, 3 и 7 количество этих чисел в программе не считается, так как их количество не является целью программы.","type":"unstyled","key":"c8o5q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"982r4"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"marker","key":"Pd9jtkTCnRduDlJVjT0n"}],"entityMap":{"0":{"data":{"url":"https://zen.yandex.ru/media/id/604efb34a573e220d56b9b34/proverka-chisla-na-prostotu-60e3d5113f7cf726c3223f90"},"mutability":"MUTABLE","type":"LINK"}}},"mentions":[]}