7 lines
261 B
Text
7 lines
261 B
Text
for i = 1 to 5000
|
|
x$ = str$(i * i)
|
|
if i = 1 then x$ = "10"
|
|
for j = 1 to len(x$) - 1
|
|
if (val(left$(x$,j)) + val(mid$(x$,j+1)) = i and val(mid$(x$,j+1)) <> 0) or i = 1 then print "Kaprekar :";left$(x$,j);" + ";mid$(x$,j+1);" = ";i
|
|
next j
|
|
next i
|