задачка с числами)помогите хоть чем-то Опции

[Vikusik93]

на интервале чисел для нечетных чисел найти средние арифметические четных и нечетных цифр, для четных определить числа с максимальной цифрой в четном разряде

[Lapp]

на интервале чисел для нечетных чисел найти средние арифметические четных и нечетных цифр, для четных определить числа с максимальной цифрой в четном разряде

Викусик, спасибо за задачку ). Лови решение.

var
  i: integer;
  a,b,d,j,m,k: longint;
  s,n: array[0..1] of longint;

const
  EvenOdd: array[0..1] of string= ('even','odd');

begin
  writeln('please enter limits of the interval');
  write('  lower: ');
  readln(a);
  write('  upper: ');
  readln(b);
  m:= 0;
  s[0]:= 0;
  s[1]:= 0;
  n[0]:= 0;
  n[1]:= 0;
  for i:=a to b do begin
    j:= i;
    if Odd(i) then
      while j>0 do begin
        d:= j mod 10;
        k:= d mod 2;
        inc(s[k],d);
        inc(n[k]);
        j:= j div 10
      end
    else
      while j>0 do begin
        d:= j mod 10;
        if d>m then m:= d;
        j:= j div 100
      end
  end;

  writeln('for odd numbers:');
  for i:=0 to 1 do
    if n[i]=0 then
      writeln('  no ',EvenOdd[i],' digits encountered')
    else
      writeln('  average of ',EvenOdd[i],' digits is ',s[i]/n[i]:8:6);
  writeln('for even nubers:');
  writeln('  max digit in even position is ',m);
  writeln('  numbers which have ',m,' in an even position:');
  for i:=a to b do begin
    j:= i;
    if not Odd(i) then
      while j>0 do begin
        if j mod 10=m then begin
          write(i:8);
          break
        end;
        j:= j div 100
      end
  end;
  readln
end.

У меня только возник по пути вопрос: c какого разряда начинать - с нулевого или с первого? Я считал, что самый правый разряд имеет номер 0 (то есть четный). Если надо иначе, а также если что-то неясно - говори .