Ввести натуральное число N. Вывести вначале все его четные, а затем нечетные делители

[leshiy_777]

Ввести натуральное число N . Вывести вначале все его четные, а затем нечетные делители. Кто поможет, буду очень благодарен.

[Poma][a]

Я вижу два варианта.. 2 раза бежать до корня.. или использовать массив и потом бежать по нему..

[Kemperh4]

Один из простейших способов...

Program chislo;
 var i,n,m1,m2:integer;
 mas1,mas2:array [1..100] of integer;
 begin 
 write('Введите натуральное число: ');
 readln(n);
 m1:=0;m2:=0;
 
 for i:=1 to n do begin
 
 if (n mod i = 0) and (i mod 2 = 0)then begin
 inc(m1);
 mas1[m1]:=i;
 end;
 
 if (n mod i = 0) and (i mod 2 <> 0)then begin
 inc(m2);
 mas2[m2]:=i;
 end;
 end;
 write('Четные делители: ');
 
 if m1 <> 0 then
 For i:=1 to m1 do
 write(mas1[i],' ');
 writeln;
 
 write('Нечетные делители: ');
 if m2 <> 0 then
 For i:=1 to m2 do
 write(mas2[i],' ');
 writeln;
 end.

[Serge_Bliznykov]

боюсь, что ваш код с массивами загнётся на достаточно большом числе! (или надо увеличивать размерность массивов)

я бы пробежался дважды:

program chislo;
var i, n, m1, m2: integer;
begin
  write('Введите натуральное число: ');
  readln(n);
  m1 := 0; m2 := 0;

  Write('Чётные делители числа: ');
  i := 2; {сначала все чётные делители числа}
  while i <= n do begin
    if (n mod i) = 0 then begin
      Write(i, ' ');
      Inc(m1);
    end;
    Inc(i, 2);
  end;
  if m1 = 0 then Write('<нет>');
  WriteLn;

  Write('НеЧётные делители числа: ');
  i := 1; {теперь нечётные делители числа}
  while i <= n do begin
    if (n mod i) = 0 then begin
      Write(i, ' ');
      Inc(m2);
    end;
    Inc(i, 2);
  end;
  if m2 = 0 then Write('<нет>');
  WriteLn;

  Readln
end.

[Kemperh4]

Serge_Bliznykov

боюсь, что ваш код с массивами загнётся на достаточно большом числе! (или надо увеличивать размерность массивов)

массив создается для делителей, для какого числа integer натуральных делителей больше 100? даже для 2 в степени n, число делителей будет не более 30
Думаю, что страхи необоснованны, а вот скорость выполнения будет в плюсе при одном проходе все-таки

[Serge_Bliznykov]

массив создается для делителей, для какого числа integer натуральных делителей больше 100?

во-первых, почему Integer, почему не LongInt ?

во-вторых, хорошо, возьмём тип Integer
во FreePascal/Delphi и т.д. win32 - Integer - это число:

Integer	–2147483648..2147483647	signed 32-bit

подсчитайте, сколько чётных делителей, например, у числа 48000000 (это далеко не максимальное число, так, просто для примера).

в-третьих, нравится Вам ваше решение больше - да на здоровье, оно вполне рабочее, и у него есть свои плюсы и минусы (о которых я и пытался сказать ).
Теперь у TC два разных решения, вот пусть TC выбирает, какое решение ему больше подходит.

[Kemperh4]

во-первых, почему Integer, почему не LongInt ?

наверное потомучто у Вас в коде так указано

var i, n, m1, m2: integer;

со вторым пунктом я согласен, тут я упустил (упрощенно как-то взглянул на проблему )

ну а в третьих, мое решение мне не нравиться!!! это просто один из вариантов решения. У Вашего решения по факту для данной задачи преимущество в меньшем количестве выполняемых операций(сразу вывод в консоль) , в моем же вначале заполняются массивы а потом выводится их содержимое, если данные в дальнейшем использоваться не собираются - это лишнее использование ресурсов.

PS:
можно просто добавить код...

if n>10000 then begin 
Writeln();
Writeln('Число > 10 000 программа будет завершена');
halt(); 
end;

и немного изменить приветствие

 write('Введите натуральное число(не более 10 000): ');

и проблема переполнения массива уйдет сама собой

[Poma][a]

и немного изменить приветствие

Я тоже так могу..

Write ('Введите натуральное A, не большее 1'); ReadLn(a);
WriteLn('1 нечетный делитель')

И, кстати, нет массивов и нет лишних проходов.. Красотаа..

во FreePascal/Delphi и т.д. win32 - Integer - это число:

Неа..
В Делфи, абц - да! Но в Free максимальное значение, которое может принимать Integer - 32767.. (если мы говорим, про "чистый" Фри, без всяких примочек ввиде режима совместимости с Делфи..)

[Kemperh4]

Я тоже так могу..
Код:

Write ('Введите натуральное A, не большее 1'); ReadLn(a);
WriteLn('1 нечетный делитель')

Это уже утрирование,
если в задаче четко не указан верхний предел, его определяет программист.

можно ведь и такое число ввести:

[1546515416511654161654456464164565623165416161643514346547171837183738716381638163236863823872687128766827872381138138173324654]

и тоже вроде как натуральное...

[Stilet]

Но в Free максимальное значение, которое может принимать Integer - 32767

Да? А это тогда как обьяснить:

Integer = longint;