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

//Pascal ABC.NET v3.1 сборка 1172Var 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