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

2011-09-03T10:39:07+00:00

var a,b,c,e,f,s:integer;

begin

   b:=a mod 10;

   c:=a div 10 mod 10;

   d:=a div 100 mod 10;

   e:=a div 1000;

   s:=c+d=e+b;

end.