|
ゴンとも |
|
十進basicで
for a=1 to 1 for b=0 to 1 IF MOD(10*a+b,19)=0 THEN PRINT 10*a+b for c=0 to 1 if mod(100*a+10*b+c,19)=0 then print 100*a+10*b+c for d=0 to 1 if mod(1000*a+100*b+10*c+d,19)=0 then print 1000*a+100*b+10*c+d for e=0 to 1 IF MOD(10000*a+1000*b+100*c+10*d+e,19)=0 THEN PRINT 10000*a+1000*b+100*c+10*d+e next e NEXT d NEXT c next b next a END f9押して 11001・・・・・・(答え) |
|
豊川市
7月25日（木） 0:17:00
MAIL:fttnm528@ybb.ne.jp 40744 |