Составить программу в бэйсике:
Заменить буквы цифрами,чтобы выполнилось равенство: ABCD=AC*DB*4

Спасибо,вы очень помогли!

Пожалуйста

'Microsoft QBASICCLSFOR a = 1 TO 9FOR b = 0 TO 9FOR c = 0 TO 9FOR d = 1 TO 9   n1 = 1000 * a + 100 * b + 10 * c + d   n2 = 10 * a + c   n3 = 10 * d + b   IF n1 = n2 * n3 * 4 THEN      PRINT a; b; c; d; " = "; a; c; " * "; d; b; " * 4"   END IFNEXT dNEXT cNEXT bNEXT aРезультат выполнения программы: 1  9  7  2  =  1  7  *  2  9  * 4 5  4  7  2  =  5  7  *  2  4  * 4 8  6  3  2  =  8  3  *  2  6  * 4