Question

С клавиатуры вводится целое положительное число. Определить сколько в нем цифр и найти сумму цифр этого числа паскаль

Answer 1

Var    n, sum, count: integer;

begin
    read(n);
    sum := 0;
    count := 0;
   
    while n > 0 do
     begin
        sum := sum + n mod 10;
        n := n div 10;
        count := count + 1;
    end;
   
    writeln(sum);
    writeln(count);
end.