Question

Дано трёхзначное число.Найти сумму его чисел. Например число 321: 3+2+1=6

Answer 1

Program summacifer;
var
sum,sot,des,ed,ch:integer;
begin
writeln('введите трехзначное число');
readln(ch);
sot:=ch div 100;
ed:= ch mod 10;
des:= ch mod 100;
des:= des div 10;
sum:=sot+ed+des;
writeln('сумма цифр вашего числа равна',sum);
end.