Question

Найдите как можно большее натуральное число, в записи которого не встречается цифра 0, которое делится на сумму своих цифр, причём любое число, получаемое из него отбрасыванием одной или нескольких последних цифр, обладает тем же свойством.

Answer 1

Ответ:

24786

Пошаговое объяснение:

Написал программу на языке 1С

Функция Поиск(знач вхЧисло,знач вхСумма,Решение) экспорт

               л=вхЧисло*10;

               для н=1 по 9 цикл

                              сумма=вхСумма+н;

                              ч=л+н;

                              если ч%сумма=0 тогда

                                  если ч>Решение тогда                       

                                  сообщить(ч);

                                              Решение=ч;

                                  конецесли;    

                                 Поиск(ч,сумма,Решение);

                              конецесли;

               конеццикла;   

               возврат ложь;

конецФункции              

Процедура  ПоискЧисла() экспорт

 Решение=0;  

 для ч=1 по 9 цикл       

               Поиск(ч,ч,Решение);

 конеццикла; 

КонецПроцедуры