(In reply to
hint by Ady TZIDON)
what 458588
is 262
this 399754
sum 14431
aqioq 873035
On the left is the base-27 sum, and the translation into decimal is on the right, so AQIOQ is the sum of WHAT+IS+THIS+SUM, when A=1 through Z=26.
DEFDBL A-Z
DATA what,is,this,sum
CLS
FOR j = 1 TO 4
READ n$
tot = 0
FOR i = 1 TO LEN(n$)
tot = tot * 27 + INSTR("abcdefghijklmnopqrstuvwxyz", MID$(n$, i, 1))
NEXT
PRINT USING "& #########"; RIGHT$(" " + n$, 6); tot
sum = sum + tot
NEXT
PRINT
savesum = sum
n$ = ""
DO
n$ = MID$("abcdefghijklmnopqrstuvwxyz", sum MOD 27, 1) + n$
sum = sum \ 27
LOOP UNTIL sum = 0
PRINT USING "& #########"; RIGHT$(" " + n$, 6); savesum
|
Posted by Charlie
on 2013-06-01 10:24:10 |