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

24786

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

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

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

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

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

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

                              ч=л+н;

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

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

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

                                              Решение=ч;

                                  конецесли;    

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

                              конецесли;

               конеццикла;   

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

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

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

 Решение=0;  

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

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

 конеццикла; 

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