Вопрос от посетителя:
найти сумму цифр четырёхзначного числа
Илюха отвечает:
var n,a,b,c,d,s:integer;
begin
write(‘n=’); readln(n); {n – даанное 4-хзначное число}
a:=n mod 10; {последняя, 4-я, цифра числа}
b:=(n div 10) mod 10; {предпоследняя, 3-я, цифра}
c:=(n div 100) mod 10; {2-я цифра}
d:=n div 1000; {1-я цифра}
s:=a+b+c+d;
writeln(‘s=’,s);
end.