Тема: Pascal, цикл з передумовою; Задано ціле число. Знайти суму цифр у записі числа.

Question

Тема: Pascal, цикл з передумовою;
Задано ціле число. Знайти суму цифр у записі числа.

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

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

Пример ввода:
123
Пример вывода:
6