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



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

Можно так:

Procedure divz(n:integer);
var i:byte;
begin
  for i:=1 to n do if (n mod i=0) then writeln(i);
end;

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

Вопрос: нужно ли делать цикл аж до n? ))

А почему бы и нет?) n тоже является делителем самого себя...

Для того, чтобы это показать - совсем не обязательно цикл продолжать до N. Все проще гораздо...

Вот так:

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

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

Т.к. из двух множителей один не может быть меньше двух в нашем случае.

Гм. Тогда, может быть, и начинать не с 1?

Unconnected, думай дальше. Ты прошел некоторую часть пути, но не до конца )).

Можно даже до половины не идти.

Именно так . Но уважаемый Un отмалчивается..

Ммм ну не знаю, я с циклом 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 и потом что-то домножать, но не додумался до конца)

думаю, имелось в виду после цикла сделать

writeln(n);

И можно идти до значения корня из числа

И как ты себе это представляешь?

for i:=2 to round (sqrt(n) )

Угу )). Только можно даже не Round, а Trunс.
И есть еще одна вещь, которую следует упомянуть..

тут возможно:
1) можно включить и единицу
2) возможно есть делитель n/2
3) ну и само число n

Народ, автор же ещё даже ни одного ответа не сделал. А то так всё и раскроем.