Function Devision(Value As Long) as boolean
Dim a As long
Dim b As Long
b = sqr(value)
For a = 2 to b
if value mod a = 0 Then
devision = false
exit function
end if
next a
devision = true
end Function
SeRRg писал(а):Число скажем больше 100 байт!
Сейчас этот форум просматривают: AhrefsBot и гости: 187