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

[torah]

Попробую, конечно.

[pray_driver]

Сообщение от Ghost of Night

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

лан, поправлюсь. Собственных делителей . Но ради 50 проверять интервал [26,49] это не метод. Мне кажется достаточно [0, 25] плюс число 50 в ответе добавить

Сообщение от Macmeprag

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

а ещё можно почитать "Теорию чисел" о делителях и их свойствах. Как я сказал, половину цикла можно вообще выкинуть. Препод всё правильно говорит, зачем компу работать вхолостую, если заранее известно, что среди половины его цикла нет делителей. Может ещё есть какие-нибудь свойства, всё читать надо.

Зачем он это делает?
Скажем я задам делители числа 1 000 000 000 000 000. Тогда та же лишняя половина даст о себе знать

[_-Re@l-_]

Мне кажется достаточно [0, 25] плюс число 50 в ответе добавить

И ещё про 1 не забудьте.

[pray_driver]

Сообщение от _-Re@l-_

И ещё про 1 не забудьте.

1 больше, чем 0 )

[_-Re@l-_]

1 больше, чем 0

Да ну???Я всегда думал, что наоборот.

[Stilet]

1 больше, чем 0 )

Байка: Однажды хитрый препод решил обламать нас, доказав что наука математика может перевернуть весь мир. Он доказал что никакое число не может быть больше нуля. Вот примерные его слова (по памяти пишу используя вышеприведенный тезис)

1 не может быть больше нуля, если это так то должно срабатывать выражение
x*y>x*x при условии что y заведомо больше x
Допустим x=5 y=10 тогда 5*10>5*5 - справедливо? Да.
Теперь подставим y=1 x=0 получим 0*1=0*0 - отсюда вывод: 1 не может быть больше нуля ибо... 1 равно нулю

Прикиньте, народ (это еще в колледже было) повелся, и с тех пор у нас ходит байка о том что ноль это число, которому равны все

[torah]

Ребят, мне нужно математически дойти до того, чтобы он перебор не писал. Что если взять n/2 ? он все равно пишет. Label не подходит. Я в печали. Помогите.

[BeJIuKuu_Hexo4yxa]

Конечно, то, что у препода в голове, никому не известно. И что он имел ввиду под фразой "изменить условие цикла, чтобы этот перебор не писался" остается только телепатить.

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
    if (number mod i=0) then
    begin
      writeln(i);
      t:=number div i;
      writeln (t);
    end;
    i:=i+1;
  end;
  i:=number;
  writeln ('try',i);      <------ ВОТ ЧТО ОН ДОПИСАЛ !
  readln;
end.

Я подправил в изначальном коде:
1. Поменял "end;" и "writeln ('try',i);" местами. Формально, строчка осталась, но вылезла из цикла )))
2. Поиск только по половине чисел
3. Строка i:=number; Для вывода в добавленной преподом строке последнего делителя.

Хотя лучше уточни, что препод имел ввиду

[torah]

В общем, сейчас с ним говорила. Он всегда использует число 202. если не менять мой код, то он будет перебирать все числа до 101. Поэтому мне надо уменьшать правую границу, чтобы перебор был значительно меньше.

[BeJIuKuu_Hexo4yxa]

Используй числа парами.
Например, нашелся делитель 2, значит делителем будет и 202 : 2 = 101, и т.д.
Тогда перебор будет только до корня из исходного числа.