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

Question

Информатика

Филя

18 ноября, 11:25

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

+5

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