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

172

443

Посмотреть ответы 2

Ответы на вопрос:

ащиза

Информатика

4,8(21 оценок)

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