Написать программу на паскале , Вычесление суммы цыфр натурального числа N

1

Ответы и объяснения

2013-12-15T21:18:26+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var
    n, s: integer;

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