Andrey DANILIN
Профи
(772)
4 года назад
Программа решает ребус из цифр: удар+удар=драка
' Russian Rebus Letters from Digitals.bas
NN = 5: DIM a(NN)
FOR u = 1 TO 9: a(1) = u
FOR d = 1 TO 9: a(2) = d
FOR a = 0 TO 9: a(3) = a
FOR r = 0 TO 9: a(4) = r
FOR k = 0 TO 9: a(5) = k
FOR xx = 1 TO NN-1
FOR yy = xx + 1 TO NN
IF a(xx) = a(yy) THEN GOTO 55
NEXT yy: NEXT xx
udar = 1000*u + 100*d + 10*a + r
draka = d*10000 + r*1000 + a*100 + k*10 + a
IF udar + udar = draka THEN PRINT udar, draka
55 NEXT k: NEXT r: NEXT a: NEXT d: NEXT u
END