паскаль

[тина222]

пожалуйста помогите переделать программу. эта программа написана через цикл, а мне надо через функцию или процедуру. найти все делители натурального числа n.
вот сама программа

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

Var n,i:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }

Write('vvedite chislo...');
Readln(n);
Write(' deliteli chisla',n,' : ');
i:=1;
while i<=n do
begin
if n mod i = 0
then Write(i,' ');
Inc(i);
end;
readln;
end.

[Abstraction]

Странное противопоставление. Без цикла тут никак, в том или ином виде.

[kangreon]

Без цикла будет так. Но с большими числами не выйдет =)

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  n, i: Integer;

procedure FinDiv(const st, sel: Integer);
begin
  if sel <= 0 then
    Exit;

  if st mod sel = 0 then
    Write(sel, ' ');

  FinDiv(st, sel - 1);
end;

begin
  Write('Write number: ');
  ReadLn(i);

  Write(i, ' divided into: ');
  FinDiv(i, i);
  ReadLn;
end.

или если надо было просто добавить функцию

program Project1;

{$APPTYPE CONSOLE}

Var
  n, i: integer;

function isMod(n, i: integer): Boolean;
begin
  Result := n mod i = 0;
end;

begin
  Write('vvedite chislo...');
  Readln(n);
  Write(' deliteli chisla', n, ' : ');
  i := 1;
  while i <= n do
  begin
    if isMod(n, i) then
      Write(i, ' ');
    Inc(i);
  end;
  Readln;
end.

[тина222]

аааааааааааааа спасибо огромное!!!!!!!!!!!!
и вообще хорошо что у нас у девушек есть на кого положиться!!!