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

[pray_driver]

Stilet. Сколько говоришь людям, что на ноль делить нельзя - им побарабану ))))))

[pray_driver]

torah
против твоего препода у меня в детстве работали вот такие штучки

Begin
For i := 1 to N do
Begin                                                       || Begin за экраном офигенный код в одну строчку всё чо хошь end;
writeln(i);
End

Все ненужные лэйблы, хальты, экзиты, всё некачественное программирование - за экран. Если требовал написать программу двумя процедурами - пожалуйста. Требовал не использовать прямой перебор - а где вы его видите?? ))))

[pray_driver]

BeJIuKuu_Hexo4yxa, так вот почему до корня для 10000 вообще цикл уменьшится всего до 100 переборов. Если преподу и это не понравится - тогда я уже не знаю

[RUSt88]

Сколько говоришь людям, что на ноль делить нельзя - им побарабану ))))))

бхахаха, на демотивации (кто не знает, гуглит)) есть пара картинок интересных, про то, что получается когда делят на ноль (например, огромная черная дыра посреди крупного города и снизу подпись "школоло поделило на 0" :DDD)

[BeJIuKuu_Hexo4yxa]

Я знаю только один легальный случай деления на 0.
Это неопределенность (0/0).

[pray_driver]

BeJIuKuu_Hexo4yxa, на самом деле в математике конечно делят на ноль, сокращая что нибудь типа предела функции при знаменателе стремящемся к нулю, просто x/0 ) Особенно физики так любят
Если углубляться, есть системы, в которых существуют делители нуля. например a*b=0, но ни a ни b нулю не равно.
Но в обычной жизни на ноль не делять ))

[torah]

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

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

Буду благодарна, если вы сможете это прописать ...

[BeJIuKuu_Hexo4yxa]

  while i <= sqrt(number) do

[pray_driver]

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

Буду благодарна, если вы сможете это прописать ...

program delitel;
var 
    n, i : Integer;

begin
Readln(n);
For i := 1 to Round(Sqrt(n)) do
begin
    If n mod i = 0 then writeln(i);
    if (n mod round(n/i)=0) and (round(n/i) <> i ) then writeln(Round(n/i));
end;
end.

[Kingdom_Reborn]

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

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

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

подобный анекдот (всеобщее математическое равенство):
1 = 2
Доказательство:
a = b
a = a + a - b = 2a - b
a^2 = 2a^2 - ab
a^2 - ab = 2a^2 - 2ab
a(a - b) = 2a(a - b)
a = 2a
1 = 2

В принципе, с помощью этого доказательства можно легко заметить, что все числа между собой равны, притом равны 0:

a(a - b) = 2a(a - b)
a(a - b) - 2a(a - b) = 0
(a - 2a)(a - b) = 0
a - 2a = 0 или a - b = 0
-a = 0 или a = b
a = 0 или a = b

Таким образом, все числа равны между собой и равны 0.

а тут 43 способа доказательства, что 1=0
http://absurdopedia.wikia.com/wiki/0%3D1