/***********************************************************
105.c -- 百五減算
******************************************************/
#N88BASIC
Dim a,b,c,x
Print "1 から 100 までの整数を1つ考えてください"
Input "それを 3 で割った余り? ", a
Input "それを 5 で割った余り? ", b
Input "それを 7 で割った余り? ", c
x = (70 * a + 21 * b + 15 * c) Mod 105
Print "あなたの考えた数は" ; x ; "でしょう!"
最終更新:2010年05月27日 18:52