Делимость числа N Опции

[Spirite]

помогите решить задачу плиз:
ищвестны след. признаки делимости числа N/
-для делимости на 11 необходимо, чтобы разность между суммой цифр, стоящих на четных местах, и суммой цифр, стоящих на нечетных местах, делилась на 11.
Описать процедуру проверки признаков делимости. Проверить их для различных значений N.

нужно описать делимость не только на 11? как это сделать.....?

[klem4]

Если знаешь признаки делимости то проблем быть не должно

вот так выделить цифру из числа :

 readln(n);
   while (n>0) do begin
      writeln(n mod 10);
      n := n div 10;
   end;

[Spirite]

а как приписать вторую цифру числа к какой-нить переменной?и третю цифру, и четвертую....или это вообще ну нужно так делать? по другому я пока не понимаю как можно сделать....

[klem4]

Можно забить в массив, можно использовать счетчик в цикле.

[Spirite]

покажи как плиз

[volvo]

Var
  ArrDigits = array[1 .. 20] of byte;
  Count: integer;
begin
  readln(n); Count := 0;
  while (n>0) do begin
    Inc(Count); ArrDigits[Count] := (n mod 10);
    n := n div 10;
  end;
end.

Теперь у тебя в ArrDigits[1] будет последняя цифра числа, ArrDigits[2] - предпоследняя, и т.д. Всего цифр в числе - Count ...

[Spirite]

угу, пасиба, ща буду думать...