7:2=3 (ост.1)
7 div 2=3 7 mod 2=1

123: 100= 1,23 ( 1 рез-т div; 23 рез-т mod)
123 mod 10= 3
123 div 100 =1
123 div 10 mod 10= 2
123 mod 100 div 10= 2

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

Нужна программа? Pascal:

var a,i:integer;

begin

read(a);

i:=0;

 while a>0 do begin

   i:=i + a mod 10;

   a:= a div 10;

 end;

 write(i);

end.

Объяснение:

Работает для всех  натуральных чисел(не только для 4-ех значных)