Задача на подпрограмму, составить задачу Опции

[eldar219]

Составить программу для нахождения делителей некоторого числа



Плизз помогите как начать решать

[Unconnected]

Ммм ну не знаю, я с циклом for ничего больше не придумал, кроме как:

Procedure divz(n:integer);
var i,i2:byte;
begin
  writeln(n);
  i2:=1;
  for i:=n div 2 downto i2 do if (n mod i=0) then begin
    writeln(i);
    inc(i2,n div i);
  end;
end;

var n:integer;
begin
  writeln('Vvedite N');
  readln(n);
  divz(n);
  readln;
end.

Но тут количество итераций то же самое вроде. Есть подозрение, что там можно делать допустим n div 5 и потом что-то домножать, но не додумался до конца)