Question

Помогите, пожалуйста!!!
информатика, цикл repet
1) Определить сумму и количество цифр числа. Число вводится с
Клавиатуры.
Итог, к примеру: 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