' Программа qbasic qb64 решает ребус: АБ*ВГ = БББ
' и легко перестраивается на любые числовые ребусы

' Автор: Андрей Данилин

' da_abvg.bas
' Russian Rebus Letters from Digitals.bas
NN = 4: DIM a(NN)
FOR a = 1 TO 9: a(1) = a
    FOR b = 1 TO 9: a(2) = b
        FOR v = 1 TO 9: a(3) = v
            FOR g = 0 TO 9: a(4) = g
FOR xx = 1 TO NN-1
   FOR yy = xx + 1 TO NN
      IF a(xx) = a(yy) THEN GOTO 55
NEXT yy: NEXT xx
             ab = 10*a + b
             vg = 10*v + g
             bbb = b*100 + b*10 + b
                  IF ab*vg = bbb THEN PRINT ab, vg, bbb
55 NEXT:NEXT:NEXT: NEXT
END