28 lines
917 B
Text
28 lines
917 B
Text
Dim As Integer cocos = 11
|
|
|
|
For ns As Integer = 2 To 9
|
|
Dim As Integer oculta(ns)
|
|
cocos = Int(cocos / ns) * ns + 1
|
|
Do
|
|
Dim As Integer nc = cocos
|
|
For s As Integer = 1 To ns+1
|
|
If nc Mod ns = 1 Then
|
|
oculta(s-1) = Int(nc / ns)
|
|
nc = nc - (oculta(s-1) + 1)
|
|
If s = ns And Not (nc Mod ns) Then
|
|
Print ns; " marineros requieren un m¡nimo de"; cocos; " cocos"
|
|
For t As Integer = 1 To ns
|
|
Print !"\tEl marinero"; t; " se esconde"; oculta(t - 1)
|
|
Next t
|
|
Print !"\tEl mono obtiene"; ns
|
|
Print !"\tFinalmente, cada marinero se lleva"; Int(nc / ns); !"\n"
|
|
Exit Do
|
|
End If
|
|
Else
|
|
Exit For
|
|
End If
|
|
Next s
|
|
cocos += ns
|
|
Loop
|
|
Next ns
|
|
Sleep
|