Dostałem do zrobienia zadanie :
Sprawdz czy 2 liczby są względnie pierwsze. Program trzeba napisać w VBA
Czy mógłbym liczyć na pomoc za 0,5l wódki ?
Program dwie liczby względnie pierwsze
- Rejestracja: dni
- Ostatnio: dni
- Postów: 2
1
- Rejestracja: dni
- Ostatnio: dni
- Postów: 1
0
Function sprawdz(n As Integer, k As Integer) As Boolean
Dim c As Integer
While k<>0
c = n mod k
n = k
k = c
End While
If n = 1
return true
End If
return false
End Function
- Rejestracja: dni
- Ostatnio: dni
- Postów: 2
0
Dziękuje, w domu sprawdzę jak to działa, a Ty podeslij numer konta w wiadomości to sie odwdzięczę :)