Question

ввести целое число и найти сумму его цифр ( с выводом "Сумма цифр числа ", a ," равна ", b) кумир

Answer 1

алг Число
нач
  цел a, n, b
  вывод "Введите целое число", нс
  ввод a
  n:= a
  b:= 0
  нц пока n<>0
    b:= b+mod(n,10)
    n:= div(n,10)
  кц
  вывод "Сумма цифр числа ", a ," равна ", b
кон

Answer 2

алг
нач
цел a,b,t
ввод a
t:=a;
b:=0;
нц пока t<>0
b:=b+mod(t,10);
t:=div(t,10);
кц
вывод 'сумма цифр числа ',a,' равна ',b
кон