не знаю синтаксис паскаля, но думаю сможешь перевезти:
n,a as integer
a:=(n mod 10) - (n div 10);
if a<0 then
a:=a*-1;
write(a);
end.
S(пока S больше или равно нулю начинай)
701-70
631-70
561-70
491-70
421-70
351-70
281-70
211-70
141-70
71-70
1-70
-69
N при этом
7+1
8+1
9+1
10+1
11+1
12+1
13+1
14+1
15+1
16+1
17+1
18
N=18
наверное как-то так
Program srof;
var a,b:integer;
begin
writeln('введите последовательность чисел закончив её введением 0');
readln(a);
b:=0;
c:=0;
while (a<>0) do
begin
if a mod 2 <>0 then
b:=b+a;
readln(a);
end;
writeln(b);
<span> end.</span>
1×2^0+0×2^1+1×2^0+1×2^1+1×2^2