Дистанционная подготовка: решение правильное
решение правильное
от Никита Слуцкин - Суббота 27 Февраль 2016, 18:33
114. Сумма цифр числа
  function summa (x:longint):integer;
var s:integer;
begin s:=0;
while x0 do
begin S:=s+x mod 10;
x:=x div 10 end;
summa:=s;
end;
var n:longint;
begin
readln (n);
writeln (summa (n));
end.