Найдите девятый элемент ряда: 1 , 2, 3, 6, 5, 10, 7, 14

думаю, что 5

смена знака у нечетных цифр идет

1. вот так это можно написать коротко, быстро и понятно, если разбираться в современном паскале. // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! function sod(self: integer): integer; extensionmethod; begin   while self> 0 do (result,self): =(result+self mod 10,self div 10); end; function diff(self: array of integer): integer; extensionmethod; begin   result: =self.max.sod-self.min.sod end; begin   writeln(readarrinteger('три пятизначных числа: ',3).diff) end. пример три пятизначных числа: 12345 23456 34567 10 2. а вот так примерно учат у нас в program school; var   i,n,max,min,d: integer; begin   write('введите 1-е пятизначное число: '); read(n);   max: =n;   min: =n;   for i: =2 to 3 do begin       write('введите ',i,'-е пятизначное число: '); read(n);       if n< min then min: =n       else           if n> max then max: =n;       end;   d: =0;   while max> 0 do begin       d: =d+max mod 10;       max: =max div 10       end;   while min> 0 do begin       d: =d-min mod 10;       min: =min div 10       end;   writeln(d) end. пример введите 1-е пятизначное число: 12345 введите 2-е пятизначное число: 23456 введите 3-е пятизначное число: 34567 10

Function sumd(n: integer): integer; var s: integer; begin   s: =0;   repeat       s: =s+ n mod 10;       n: =n div 10;   until n=0;   sumd: =s; end;   // основная программа   var a,b,c,mx,mn: integer; begin   write('числа a,b,c через пробел: ');   readln(a,b,c);   mx: =max(a,max(b,c));   mn: =min(a,min(b,c));   writeln(sumd(mx)-sumd(mn)); end. числа a,b,c через пробел: 12345 23456 34567 10