Сумма цифр числа

AvariItigail

25 апреля 2016

Вычислить сумму цифр числа N

Входные данные
Задано единственное число N

Выходные данные
Необходимо вывести сумму цифр числа N.

Исходный код на языке Pascal

var
  a, s: integer;

begin
  read(a);
  s := 0;
  while a > 0 do
  begin
    s := s + a mod 10;
    a := a div 10;
  end;
  writeln(s);
end.