Question

ОЧЕЕЕЕНЬ СРОЧНО!!!!!!!
Дано натурально число N. Найти и вывести все числа в интервале от 1 до N-1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово.

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

function SoD(n:integer):integer;
// сумма цифр в натуральном числе
begin
  Result:=0;
  while n>0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
  var n:=ReadInteger('n=');
  var sd:=SoD(n);
  var s:=1.To(n-1).Where(t->SoD(t)=sd);
  if s.Count=0 then Writeln('Нет')
  else s.Println
end.

Пример
n= 136
19 28 37 46 55 64 73 82 91 109 118 127