Определите количество принадлежащих отрезку [345 678; 456 789] натуральных чисел, которые делятся без остатка на сумму своих цифр, и наименьшее из таких чисел. В ответе запишите два целых числа: сначала количество, затем наименьшее число. Числа в ответ запишите друг за другом без разделительных знаков.
Решим задачу перебором. Приведём решение данной задачи на языке PascalABC:
var
i, j, count, min, sum: longint;
s: string;
begin
count := 0;
min := 500000;
for i := 345678 to 456789 do begin
s := inttostr(i);
sum := 0;
for j := 1 to 6 do sum := sum + strtoint(s[j]);
if i mod sum = 0 then begin
count := count + 1;
if i < min then min := i;
end;
end;
writeln(count, min);
end.
Результат работы программы — 10777345681.
Ответ: 10777345681.