Подсчитать количество (сумму)цифр в записи целого неотрицательного числа. (в паскале авс)

Question

Информатика: Подсчитать количество (сумму)цифр в записи целого неотрицательного числа. (в паскале авс)

yokofoku · Answer

Program asd;var n,a,b:integer;begin read(n);a:=n;while a 0 do beginb:=a mod 10+b;a:=a div 10;end;writeln(b);end....