5-ти значное число

[D@rkD@iver]

var
m: array[0..9] of integer;
begin
read(x);
s:=0;
p:=1;
while x<>0 do
begin
m[x mod 10]:= m[x mod 10]+1;
x:=x div 10
end;

for i:= 1 to 9 do
if (m[i]<>0)
begin
if odd(m[i])
p:= p*pow(i, m[i])
else
s:= s+i*m[i];
end;

ebd.

функцию Pow сам напишешь- возведение в степень

[Иллидан]

Парные если N1-N2=2

var
x,i,j,S,P:integer;
c:array [1..5] of integer;
begin
read(x);
i:=0;
while x>0 do begin
i:=i+1;
c[i]=x[i] mod 10;
x[i]:=x[i] div 10;
end;
{первая часть программы разбиение числа на массив чисел}
{вторая часть программы поиск парных чисел}
S:=0;
p:=1;
for i:=1 to 4 do begin
for j:=i to 4 do begin
if abs(c[j]-c[j+1])=2 then 
S:=S+c[j]-c[j+1];
else
P:=P*c[j]*c[j+1];
end;
end;
end.
{И в P у нас содержится произведение всех непарных чисел}
{В S сумма всех парных}

Вроде все правильно