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

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.

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

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.