С клавиатуры вводится строка, состоящая из чисел, разделенных одним пробелом. Составить...

Question

С клавиатуры вводится строка, состоящая из чисел, разделенных одним пробелом. Составить вторую строку, которая состоит из чисел, равных сумме цифр каждого числа исходной строки.

Answer 1

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

function SumDig(n:integer):integer;
begin
  Result:=0;
  while n>0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
  var s:=ReadlnString.ToIntegers.Select(n->SumDig(n)).JoinIntoString('');
  s.Println
end.

Пример
123 4355 12 221 9865620 32331 223234 12232
6173536121610