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

Question

Информатика

Ванюша

27 февраля, 08:14

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

+1

Ответы (1)

Знаете ответ на вопрос?

Никитьич · 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.