4.gyak

'a oszlopból nulla végjelig, ezeket tömbbe, írjuk ki a b oszlopba azon elemeket amelyek megeggyeznek az előző két elem összegével


Sub tomb()
Dim t(1 To 100) As Integer, c As Range, i As Integer
Set c = Range("A1")
i = 1

Do While c.Value <> 0
t(i) = c.Value
Set c = c.Offset(1, 0)
i = i + 1
Loop
Dim j As Integer, k As Integer

For j = 3 To i - 1
If t(j) = t(j - 1) + t(j - 2) Then
Range("b1").Offset(k, 0) = t(j)
k = k + 1

End If

Next j

End Sub

Function lnko(ByVal a As Integer, ByVal b As Integer) As Integer

Dim r As Integer

Do

    r = a Mod b
    a = b
    b = r

Loop While r <> 0

lnko = a

End Function

Function rel_prim(tb() As Integer, n As Integer) As Boolean


rel_prim = True
Dim i As Integer, j As Integer
For i = 1 To n - 1
For j = i + 1 To n
If lnko(tb(i), tb(j)) <> 1 Then
rel_prim = False
Exit Function
End If

Next j

Next i


End Function

Sub kiir()
Dim t(1 To 100) As Integer, c As Range, i As Integer
Set c = Range("C1")
i = 1

Do While c.Value <> 0
t(i) = c.Value
Set c = c.Offset(1, 0)
i = i + 1
Loop

MsgBox rel_prim(t, i - 1)
End Sub

Function buvos(ByVal n As Byte) As Boolean
Dim i As Byte, j As Byte, sum As Integer, etalon As Integer


End Function


Sub main()
Call kiir

End Sub