Извините, ничего не найдено.

Android · 15.09.2009, 23:26

Народ, никто не может помочь? Нужно помочь одному хорошему человеку кодом, или хотяб алгоритмом.

22:16 - Андрей Геннадич: В массиве целых чисел найти пару соседных чисел с наибольшим НОД

Я если честно не очень понял что это значит (ну тупой я немног

), а времени сейчас разбираться нет. вообщем кому не сложно

ViNT · 15.09.2009, 23:54

На каком языке?

Randomize · 16.09.2009, 00:11

Dim numbers(100)
For i=0 To 100
	numbers(i)=Rand(0,100)
Next



f%=WriteFile("Result.txt")

Local old_nod=0
Local old_v1,old_v2

For i=0 To 99
	Local v1=numbers(i)
	Local v2=numbers(i+1)	

	Local tnod%=NOD(v1,v2)

	If tnod>old_nod Then
		old_nod=tnod
		old_v1=v1
		old_v2=v2
	EndIf

	WriteLine(f,"Nod("+v1+","+v2+")="+tnod)

Next
WriteLine(f,"Bigest nod("+old_v1+" , "+old_v2+") "+old_nod)
CloseFile(f)

; ищет нод
Function NOD%(x%,y%)
	If x<>0 Then Return NOD(y Mod x,x) Else Return y
End Function

;ищет нок
Function NOK%(x%,y%)
	Return Int(x / NOD (x,y))*y
End Function

АССА!?