Вопрос по информатике:
Назовём красивыми числа, в записи которых есть минимум две одинаковые цифры (например: 44, 505, 1101, 2324).
Сумма красивых чисел, меньших 100, равна 495 (11 + 22 + 33 + 44 + 55 + 66 + 77 + 88 + 99 = 495).
Найдите сумму красивых натуральных чисел, меньших 10000.
- 02.07.2018 12:52
- Информатика
- remove_red_eye 14435
- thumb_up 11
Ответы и объяснения 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
- 03.07.2018 17:10
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.