Задача по информатике. Найти сумму цифр данного целого числа. Программа. Паскаль

Question

Задача по информатике. Найти сумму цифр данного целого числа. Программа. Паскаль

Answer 1

Var a,s,k:integer;beginwrite('введите число: ');readln(a);while a<>0 do begink:=a mod 10;s:=s+k;a:=a div 10;end;writeln('сумма цифр  равна ',s);end.

Comments

немного не в столбик

---

и так сойдет ;)