Дано натуральное число п. Найти знакочередующуюся сумму цифр числа n:

Var i, n, n1,a, s, k, znak :integer;
begin
write('vvedite chislo n ');
readln(n); n1:=n;
k:=0; {количество цифр}
while n1 <> 0 do
begin
k:=k+1;
n1 := n1 div 10;
end;

if k mod 2 = 0 then znak:=-1 else znak:=1 ;
s:=0;
while n <> 0 do
begin
a:=n mod 10;
s:=s+a*znak;
znak:=znak*(-1);
n := n div 10;
end;
writeln ( 'Знакочередующаяся сумма цифр числа = ', s);
end.

Находишь сколько цифр и складываешь.

Var i, n, n1,a, s, k, znak :integer;
begin
write('vvedite chislo n ');
readln(n); n1:=n;
k:=0; {количество цифр}
while n1 <> 0 do
begin
k:=k+1;
n1 := n1 div 10;
end;

if k mod 2 = 0 then znak:=-1 else znak:=1 ;
s:=0;
while n <> 0 do
begin
a:=n mod 10;
s:=s+a*znak;
znak:=znak*(-1);
n := n div 10;
end;
writeln ( 'Знакочередующаяся сумма цифр числа = ', s);
end.

На C# если нужно:

namespace ConsoleApplication18
{
class Program
{
static void Main(string[] args)
{
int n, n1, s, a, k, znak;
Console.WriteLine(" Введите число n =");
n = int.Parse(Console.ReadLine());
n1 = n;
k = 0;
while (n1 != 0)
{
k = k + 1;
n1 = n1 / 10;

}

if (k / 2 == 0)
{
znak = -1;
}
else
{
znak = 1;
}
s = 0;
while( n!=0 )
{
a = n % 10;
s = s + a * znak;
znak = znak * -1;
n = n / 10;

}
Console.WriteLine("Знакочередующаяся сумма цифр числа ={0}", s);
Console.ReadKey();

}
}
}