10 lines
215 B
Text
10 lines
215 B
Text
|
procedure main(A)
|
||
|
|
m := integer(A[1]) | 41
|
||
|
|
c := integer(A[2]) | 3
|
||
|
|
write("With ",m," men, counting to ",c," last position is: ", j(m,c))
|
||
|
|
end
|
||
|
|
|
||
|
|
procedure j(m,c)
|
||
|
|
return if m==1 then 0 else (j(m-1,c)+c)%m
|
||
|
|
end
|