1. Две рядом стоящие цифры могут дать максимум 18 (сочетание 99), поэтому все четырехзначные варианты, содержащие пары больше 18 отбрасываем (1916,1619). 2. Результат 1616 может получиться только как комбинация 8+8, т.е исходным было число 888. Найдено первое число. 3. Результат 169 может быть образован из числа 881, это второе число. 4. Результат 163 никак не может быть получен, потому что 16 - это 9+7, 8+8 или 7+9, но даже 7, сложенное с 0 даст уже 7, а не 3. 5. Результат 316 по той же причине не может быть получен - число 3 это сумма 1+2, но даже 2+9 не даст 16. 6. Результат 916 может быть получен из 188, но только как комбинация 9,16, что нарушает порядок невозрастания. Бракуем. 7. Результат 116 может быть получен из 651, это третье число. ответ: 3 числа.
var n,i,j,s,k:integer;
begin
write('Введите число: ');
readln(n);
i:=1;
while i <= n do
begin
j:=1;
s:=0;
while j<i
do
if i mod j = 0 then
begin
s:=s+j;
j:=j+1;
end
else
j:=j+1;
if s=i then
begin
k:=k+1;
if k=1 then write('Совершенные числа из диапазона от 1 до ',n,': ');
write(i,' ')
end;
i:=i+1
end;
if k=0 then write('Совершенных чисел в диапазоне от 1 до ',n,' нет');
end.