Question

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

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