Помогите, пожалуйста!!!информатика, цикл repet1) Определить сумму и количество цифр...

Question

Помогите, пожалуйста!!!информатика, цикл repet1) Определить сумму и количество цифр числа. Число вводится сКлавиатуры.Итог, к примеру: n= 12345Сумма цифр числа равна 15Количество цифр в числе 5​

Answer 1

program p1;

var a,s,k: integer;

begin

write('Введите число: ');

readln(a);

s:=0;

k:=0;

repeat

s:= s+a mod 10;

k:= k+1;

a:= a div 10;

until a=0;

writeln('Сумма цифр числа равна ',s);

writeln('Количество цифр в числе ',k);

end.

Пример:

Введите число: 12345

Сумма цифр числа равна 15

Количество цифр в числе 5