Назовём красивыми числа, в записи которых есть минимум две одинаковые цифры (например: 44, 505, 1101, 2324). Сумма красивых чисел, меньших 100, равна 495 (11 + 22 + 33 + 44 + 55 + 66 + 77 + 88 + 99 = 495). Найдите сумму красивы...
Назовём красивыми числа, в записи которых есть минимум две одинаковые цифры (например: 44, 505, 1101, 2324).
Сумма красивых чисел, меньших 100, равна 495 (11 + 22 + 33 + 44 + 55 + 66 + 77 + 88 + 99 = 495).
Найдите сумму красивых натуральных чисел, меньших 10000.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы