Срочно программу в паскаль. решить числовой ребус одинаковые буквы означают одинаковые...

Question

Срочно программу в паскаль. решить числовой ребус одинаковые буквы означают одинаковые цифры кот+кто=ток

Comments

Перебором решать? потому что если логикой, то программа не нужна, это задачка по арифметике.

---

459+495=954 должно получиться

---

нет братан нужна программа

Answer 1

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 for var K := 1 to 9 do

   for var O := 0 to 9 do

     for var T := 1 to 9 do

       if 100 * K + 10 * O + T + 100 * K + 10 * T + O =

           100 * T + 10 * O + K then

         $'{K}{O}{T}+{K}{T}{O}={T}{O}{K}'.Println

end.

459+495=954

Comments

Блин я тебя люблю

---

Спасибо, я предпочитаю девочек

---

Ну просто ты офигенный чувак

---

"Чувак" на Востоке - это слово, обозначающее кастрированного верблюда или барана. Так что давайте поаккуратнее с сомнительными комплиментами.

---

Хорошо больше не буду.

---

Вот это правильная мысль. Чтобы не парится, тут просто есть красненькое сердечко для выражения благодарности. Если, конечно, таковая возникает.