Назовём красивыми числа, в записи которых есть минимум две одинаковые цифры (например: 44, 505, 1101, 2324). Сумма красивых

program zz1;var i,j,k,n,s:integer;mas:array[0..9] of integer;beginfor i:=11 to 10000 do // перебираем все возможные числаbeginn:=i;while n>0 do // организуем цикл, пока в числе есть цифрыbegink:=n mod 10; // получаем последнюю цифруmas[k]:=mas[k]+1; // в массиве считаем цифруn:=n div 10; // отбрасываем ееend;for j:= 0 to 9 doif mas[j]>1 then s:=s+i; // проверяем число на красотуfor j:= 0 to 9 do mas[j]:=0; // обнуляем массивend;write(s); // выводим ответend.

Ответ: 26 066 980