Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var
  n,k,s,d:longint;
begin
  Write(Введите натуральное число: ); Readln(n);
  s:=0; k:=0;
  while n<>0 do begin
    d:=n mod 10;
    Inc(k);
    s:=s+d;
    n:=n div 10
  end;
  Writeln(Количество цифр равно ,k,, сумма цифр равна ,s)
end.

Тестовое решение:
Введите натуральное число: 157832
Количество цифр равно 6, сумма цифр равна 26