Назовём красивыми числа, в записи которых есть минимум две одинаковые цифры (например: 44, 505, 1101, 2324). Сумма красивых чисел, меньших 100, равна 495 (11 + 22 + 33 + 44 + 55 + 66 + 77 + 88 + 99 = 495). Найдите сумму красивых натуральных чисел, меньших 10000.

program zz1;

var i, j, k, n, s:integer;

mas:array[0 ... 9] of integer;

begin

for i:=11 to 10000 do / / перебираем все возможные числа

begin

n:=i;

while n>0 do / / организуем цикл, пока в числе есть цифры

begin

k:=n mod 10; / / получаем последнюю цифру

mas[k]:=mas[k]+1; / / в массиве считаем цифру

n:=n div 10; / / отбрасываем ее

end;

for j: = 0 to 9 do

if mas[j]>1 then s:=s+i; / / проверяем число на красоту

for j: = 0 to 9 do mas[j]:=0; / / обнуляем массив

end;

write (s); / / выводим ответ

end.

Ответ: 26 066 980