Var a,e,z,y,x:integer;
Begin
Writeln('Введите трехзначное число');
Readln(a);
x:=a div 100;
y:=(a-x*100) div 10;
z:=a-y*10-x*100;
e:=x+y+z;
writeln('Сумма чисел ',x,' ',y,' и ',z,' равна ',e,'.');
<span>end.
p.s.
</span>a-трехзначное число
e-сумма чисел
x, <span>y </span>и <span>z </span>- первое, второе и третье число соответственно.
В сказке "Курочка-ряба" курочка - неформальный исполнитель: она сначала снесла золотое яичко, а потом - простое.
В сказке "Василиса прекрасная" и многих других избушка Бабы-Яги на курьих ножках поворачивается по приказанию своей хозяйки. Это формальный исполнитель.
var sum,x:integer;
begin
x:=1;
while x<>0 do begin readln(x); sum:=sum+x; end;
writeln(sum);
end.