Question

Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет».
Пример: N = 44. Числа: 17, 26, 35.

Answer 1

uses crt;
function Summ(n:longint):byte;
var m:longint;
    s:byte;
begin
s:=0;
m:=n;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
Summ:=s;
end;
var n,i:longint;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
k:=0;
for i:=1 to n-1 do
if Summ(i)=Summ(n) then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('Нет');
readln
end.