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

Сумма красивых чисел, меньших 100, равна 495 (11 + 22 + 33 + 44 + 55 + 66 + 77 + 88 + 99 = 495).

Найдите сумму красивых натуральных чисел, меньших 10000.

Question

Информатика

Венуля

4 июня, 16:54

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

Сумма красивых чисел, меньших 100, равна 495 (11 + 22 + 33 + 44 + 55 + 66 + 77 + 88 + 99 = 495).

Найдите сумму красивых натуральных чисел, меньших 10000.

+4

Ответы (1)

Знаете ответ на вопрос?

Максимильянка · Answer 1

Var a, c, s:integer;

m:set of 0 ... 9;

b:boolean;

begin

s:=0;

for a:=10 to 9999 do

begin

m:=[];

c:=a;

b:=false;

while c0 do

begin

if (c mod 10) in m then b:=true;

m:=m+[c mod 10];

c:=c div 10;

end;

if b then s:=s+a;

end;

writeln ('s = ', s) ;

end.

Результат:

s = 24717105