Ответы и объяснения

Лучший Ответ!
2014-02-25T14:13:59+00:00
Насколько я понял нужно разбить трёхзначное число по разрядам и найти их сумму
var
 n,n1,n2,n3:integer;
begin
 readln(n);
 n1:=n div 100;
 n2:=(n div 10) mod 10;
 n3:=n mod 10;
 writeln(n1+n2+n3);
end.