プログラム解
f=\(n,P=22.9){
p=P/100
lo=p-0.05/100
up=p+0.05/100
flg=\(x) n*lo <= x & x <= n*up
(1:n)[flg(1:n)]
}
re=sapply(1:1000,f)
(1:1000)[sapply(1:1000,\(x) length(re[[x]]))==1]
[1] 35 48 70 83 96 105 109 118 131 140 144 153 157 166
[15] 170 175 179 188 192 201 205 210 214 218 223 227 231 236
[29] 240 245 249 253 258 262 266 271 275 279 280 284 288 292
[43] 293 297 301 306 310 314 315 319 323 327 328 332 336 340
...
...
[477] 979 980 981 982 983 984 985 986 987 988 989 990 991 992
[491] 993 994 995 996 997 998 999 1000
で可能性のある回答数は498種類
