Kaprekar Number

 投稿者:しばっち  投稿日:2015年10月28日(水)22時23分20秒
 
!'Kaprekar Number
FOR I=4 TO 100000
   LET A$=STR$(I*I)
   FOR J=1 TO LEN(A$)-1
      LET L$=A$(1:J)
      LET R$=A$(J+1:LEN(A$))
      IF VAL(L$)+VAL(R$)=I THEN PRINT I;":";I*I;L$;"+";R$
   NEXT J
NEXT I
END
 

戻る