Введите четырехзначное число и подсчитайте сумму его цифр (Пояснение: Примените операции div и mod по несколько раз)

var a, i, sum:integer;

begin

readln (a) ;

for i:=1 to 4 do begin

sum:=sum+a mod 10;

a:=a div 10;

end;

writeln (sum) ;

end.

var

a: 1000 ... 9999; / / четырехзначное число

a1, a2, a3, a4: 1 ... 9; {цифры четырехзначного числа (цифры могут быть только от 1 до 9 в десятичной системе счисления) }

begin

writeln ('Введите четырехзначное число') ;

readln (a) ; / / Вводим четырехзначное число

a1: = a div 1000; {Находим первую цифру, для этого делим это число без остатка на 1000 (например пусть число будет 5479, тогда получится 5479 / 1000 = 5,479; отбрасываем остаток и получается 5) }

a2: = (a mod 1000) div 100; {Находим вторую цифру, для этого сначала берем остаток от деления этого числа на 1000, а потом делим результат на 100 без остатка (5479 / 1000 = 5,479; оставляем остаток, получается 479; 479 / 100 = 4,79; отбрасываем остаток и получается 4) }

a3: = (a mod 100) div 10; {Находим 3 цифру, для этого сначала берем остаток от деления этого числа на 100, а потом делим результат на 10 без остатка (5479 / 100 = 54,79; берем остаток и получается 79; 79 / 10 = 7,9; отбрасываем остаток и получается 7) }

a4: = a mod 10; {Для нахождения 4 цифры берем остаток от деления этого числа на 10 (5479 / 10 = 547,9; берем остаток и получается 9) }

writeln ('Сумма цифр числа ', a, ' равна: ', a1 + a2 + a3 + a4) ; {Выводим сумму цифр}

end.

Если все правильно, отметь решение как лучшее)