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

Question

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

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

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

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 c<>0 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

Comments

спасибо огромное!! вы меня спасли!!

---

Ля, а не на языке компа можно?