Найти все делители числа N

[torah]

Уважаемые программисты.
Изначально я прописала код, который просто рассчитывает делители, потом преподаватель попросил сделать так, чтобы писались по 2 делителя - самый левый и самый правый. Но после этого,а именно после того, когда я сделала программу, преподаватель добавил строчку writeln ('try',i) после которой помимо делителей пишутся остальные числа, которые программа перебирает. Удаление этой строчки не позволительна и преподаватель сказал, что мне надо изменить условие цикла, чтобы этот перебор не писался. Вся работа в Pascal.
Вот программа:

var number,i,t:longInt;
begin
writeln('vvedite chislo);
readln(number);
writeln;
writeln('delitel chisla');
i:=1;
t:=number;
while i<t do
begin
if (number mod i=0) then
begin
writeln(i);
t:=number div i;
writeln (t);
end;
i:=i+1
writeln ('try',i);      <------ ВОТ ЧТО ОН ДОПИСАЛ !
end;
readln;
end.

[pray_driver]

ну скажем можно искать до round(N/2),
например для 50 не имеет смысла искать делители начиная с 26 - точно не найдем

для 70-и с 36 точно можно не искать. То есть цикл достаточно сделать до N/2. может он это имел ввиду?

[Ghost of Night]

Можно попробовать так:

label e;
var number,i,t:longInt;
begin
writeln('vvedite chislo');
readln(number);
writeln;
writeln('delitel chisla');
i:=1;
t:=number;
while i<t do
begin
e: i:=i+1;
if (number mod i=0) then
begin
writeln(i);
t:=number div i;
writeln (t);
end
else goto e;
writeln ('try',i);     
end;
readln;
end.

[torah]

Я просто уже не знаю, куда можно ещё больше её улучшать.

[Ghost of Night]

например для 50 не имеет смысла искать делители начиная с 26 - точно не найдем

для 70-и с 36 точно можно не искать

А как же 50 - это тоже делитель 50!
А 70 - делитель 70!

[Macmeprag]

самый левый - это поидее тот что первым найдется, а самый правый - это собсна само число, разве не так?
тогда надо сделать брейк цикла как только встретится первый делитель
А если и не так (самый правый - самый большой, но отличный от самого числа), то можно после того как только найдет самый первый сделать обратный цикл..

var
  number,i,t:longInt;
begin
  writeln('Vvedite chislo');
  readln(number);
  writeln;
  writeln('Delitel chisla');
  i:=1;
  t:=number;
  while i<number div 2 do begin
    inc(i);
    if (number mod i=0) then begin
      if i=2 then begin
        WriteLn('Edinstvenny ',i);
        break;
      end;
      writeln('Samyi levyi ',i);
      break;
    end
    else continue;
    writeln ('try',i);
  end;
  for i:=number div 2 downto 1 do
    if number mod i = 0 then begin
      if i=2 then break;
      WriteLn('Samyi pravyi ',i);
      break;
    end;
  readln;
end.

Никогда не используйте лейблы) они-зло

[torah]

Macmeprag, если я использую break, тогда он попросит избавиться от него ( уж такие у него нравы ), т.е. у преподавателя. Программа у меня правильно работает, я просто не знаю, как от этих строчек избавиться, ведь если я её просто удалю - он вновь её напишет )

[Macmeprag]

Ы

inc(i);//<=> i:=i+1;
continue;

континью хоть не удалит?
бредовый препод на самом деле тогда) а лейблы он принимает? если да, то я вообще разочарован

[torah]

На счет лейблов - не знаю, но люди на курс старше до сих пор ему лабы сдают ... Поэтому я в печали. Если ему придёт в голову, что можно улучшить программу - то все, уловить его мысль очень сложно.

[Macmeprag]

на сколько я знаю..3 способа избежать эту фигню..брейк, лейбл и континью