27.10.2016, 10:51 | #1 (permalink) |
Member
Регистрация: 22.10.2016
Сообщений: 62
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Простое число или нет?
Код:
Option Explicit Dim P As Long, d As Long Dim bul As Boolean Dim Q As Double Private Sub txtT_Change() P = Val(txtT.Text) If P = 1 Then bul = False: GoTo 100 If P Mod 2 = 0 And P <> 2 Then bul = False: GoTo 100 Q = Sqr(P) For d = 3 To Q Step 2 If P Mod d = 0 Then bul = False: GoTo 100 Next d bul = True: GoTo 100 100 If bul Then txtT.ForeColor = vbRed Else txtT.ForeColor = vbBlack End Sub |
27.10.2016, 10:51 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Давайте я вам помогу найти схожие с вашей темы Что скрывает число Пи Преследует число 666 |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|