делители числа n (Delphi)

[nikit6]

Дано целое число n. Требуется найти количество его делителей, не считая 1 и само число n. В программе должна быть функция, возвращающая количество делителей числа n.

[chertovich]

TIntegerArray = array of Integer;
.......................................................
function GetN(N: Integer): TIntegerArray;
var
  I: Integer;
begin
  SetLength(Result, 0);
  for I := 2 to N - 1 do
  begin
    if (N mod I) = 0 then
    begin
      SetLength(Result, Length(Result) + 1);
      Result[High(Result)] := I;
    end;
  end;
end;

function GetCount(Arr: TIntegerArray): Integer;
begin
  Result := Length(Arr);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Arr: TIntegerArray;
begin
  Arr := GetN(20);
end;

[Sibedir]

Всё так. Только

...
  for I := 2 to (N div 2) do
...

[nikit6]

Простите пожалуйста, не понимаю в какой переменной ответ. Плюс, n надо прочитать в одном файле (.txt), а вывести в другом (тоже .txt). Заранее спасибо.

[Sibedir]

Результатом тут является массив делителей (TIntegerArray). Его длина - и есть ваш ответ.
Вообще, если нужно просто кол-во делителей, то записывать их в массив не обязательно. Достаточно просто завести счётчик и увеличивать его при каждом нахождении нового делителя.

Плюс, n надо прочитать в одном файле (.txt), а вывести в другом (тоже .txt). Заранее спасибо.

Тут уместно было бы сказать: Один вопрос - одна тема. Но, кажись, уместнее сказать: обсуждалось более 9000 раз

[Mad_Cat]

program Project3;
uses
  SysUtils;
 var n:Integer;
 f:TextFile;
   function count(n:integer):Integer;
  var i:Integer;
  begin
  result:=0;
    for i := 2 to n div 2 do
     if n mod i =0 then result:=result+1;
  end;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 Assignfile(f,'c:\data.txt');
 Reset(f);
 read(f,n);
 Closefile(f);
 Assignfile(f,'c:\res.txt');
 Rewrite(f);
 write(f,count(n));
 Closefile(f);
end.