Технический форум - Помогите решить задачу в паскале

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Помогите решить задачу в паскале

Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N – 1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово «нет».

Цитата:

Сообщение от TylerMcTre (Сообщение 839392)

Да без проблем:

Код:

Var

 N,i:LongInt;

 p:boolean;



Function Sum(M:LongInt):Byte;

var S:longInt;

begin

 S:=0;

 Repeat

  S:=S+(M mod 10);

  M:=M div 10;

 Until M=0;

 Sum:=S;

end;



Begin

 Write('N= ');

 Readln(N);

 p:=true;

 For i:=1 to N-1 do

  If Sum(i)=Sum(N) then

   begin

    Write(i:8);

    p:=false;

   end;

 If p then Writeln('No');

 Readln;

End.