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

чебурек48 чебурек48    3   01.10.2019 05:40    0

Ответы
Kanapluhaaa Kanapluhaaa  21.08.2020 19:53
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика