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

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

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

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

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

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

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

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

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 ...

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