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

Question

Информатика

Мирослава

1 марта, 23:09

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

+4

Ответы (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.