Найдите как можно большее натуральное число, в записи которого не встречается цифра 0, которое делится на сумму своих цифр, причём любое число, получаемое из него отбрасыванием одной или нескольких последних цифр, обладает тем же свойством.
Ответы на вопрос:
24786
Пошаговое объяснение:
Написал программу на языке 1С
Функция Поиск(знач вхЧисло,знач вхСумма,Решение) экспорт
л=вхЧисло*10;
для н=1 по 9 цикл
сумма=вхСумма+н;
ч=л+н;
если ч%сумма=0 тогда
если ч>Решение тогда
сообщить(ч);
Решение=ч;
конецесли;
Поиск(ч,сумма,Решение);
конецесли;
конеццикла;
возврат ложь;
конецФункции
Процедура ПоискЧисла() экспорт
Решение=0;
для ч=1 по 9 цикл
Поиск(ч,ч,Решение);
конеццикла;
КонецПроцедуры
Популярно: Математика
-
HelloyKiss18.04.2023 06:05
-
verysadsavant103.07.2022 18:19
-
rrrrreeeeyttttyuytpq22.05.2023 19:06
-
freemvount11.10.2021 05:07
-
Victoria123645601.03.2022 17:01
-
60026072anira27.11.2021 18:45
-
MrAlexCross22.10.2021 10:01
-
rabotastudent508.09.2021 15:45
-
ViktoriaAlex66628.04.2022 21:51
-
Il12345604.03.2020 18:57