「Josephus (ヨセフス) の問題」の編集履歴（バックアップ）一覧はこちら

「Josephus (ヨセフス) の問題」(2010/07/16 (金) 17:35:25) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

#asciiart(blockquote){
/***********************************************************
	jos2.c -- Josephus (ヨセフス) の問題
***********************************************************/
#N88BASIC

Dim k As Long, n As Long, p As Long


Input "人数";n
Input "何人ごと? ";p
k = p - 1
while (k < (p - 1) * n)
	k = (p * k) / (p - 1) + 1
	Print p * n - k;"番の人が残ります"
Wend
}