Составить программу в бэйсике: Заменить буквы цифрами,чтобы выполнилось равенство:...

Question

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

Comments

А где тут неравенство?

---

ой,неправильно написал

---

равенство

---

ABCD-цифры числа. Имеется в виду, что четырехзначное число должно быть равно произведению двух двухзначных, умноженных на 4 ?

---

да,abcd-четырёхзначное число

Answer 1

'Microsoft QBASIC
CLS
FOR a = 1 TO 9
FOR b = 0 TO 9
FOR c = 0 TO 9
FOR 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 IF
NEXT d
NEXT c
NEXT b
NEXT 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

Comments

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

---

Пожалуйста