Дано натуральное четырехзначное число n. Найти сумму его цифр.

Решим данную задачи на основе применения функций целочисленного деления DIV (целочисленный результат деления двух чисел) и MOD (остаток от целочисленного деления двух чисел).

Алгоритм решения данной задачи линейный, с последовательным определением значащих цифр числа (слагаемые в вычислительном выражении).

Program SummaCifr4;

var a, s : integer; begin readln (a); s : = a div 1000 + (a div 100) mod 10 + (a div 10) mod 10 + a mod 10; writeln (s); end.