Найти кол-во простых делителей и произведение только простых делителей

[Tim1664]

дано натуральное число N (N<10^4) Составить программу,которая вычисляет S только простых делителей N и произведение только простых делителей натурального числа N

Program Z;
var
  pr: real;
  k, i, n: integer;
 
begin
  write('N: ');
  readln(n);
  if n < exp(10*ln(4)) then 
  begin
  pr := 1;
  k := 0;
  for i := 1 to n do
    if (n mod i = 0) and (i mod 2 <> 0) then
    begin
      pr := pr * i;
    end;
  writeln('Произведение чётных делителей: ', pr);
  writeln('Количество   чётных делителей: ', k)
  end
  else 
  writeln('Wrong number');
end.

исправьте если что-то не так пожалуйста

[ViktorR]

Tim1664

Найти кол-во простых делителей и произведение только простых делителей

writeln('Произведение чётных делителей: ', pr);
  writeln('Количество   чётных делителей: ', k)

Вы сами понимаете, что вам надо?
Чётные, нечетные, простые, рациональные, иррациональные.
Прочитайте. В Сети предостаточно материала на эту тему.

PS:
Если необходимо искать только простые делители, то думаю, что надо написать две функции.
Одна ищет делители числа, а вторя проверяет их на простоту.
Помним, что если есть делитель, то есть и частное. Делители ищем до корня квадратного из числа.
На простоту проверяем и делитель и частное.

[digitalis]

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

Вы сами понимаете, что вам надо? Чётные, нечетные, простые, рациональные, иррациональные.

Ну дык в сети удалось найти первое попавшееся это. А уж форумцы допилят до нужного функционала, и голову включать не надо.

что надо написать две функции. Одна ищет делители числа...

Можно сделать смешнее: поскольку диапазон исходных чисел невелик, то сгенерировать массив простых целочисленных констант от 2 до 97 и использовать их в качестве возможных делителей.
Вариантов много. Одно печалит: это же думать надо...

[digitalis]

Продолжим, несмотря на потерянный ТС-ом интерес к теме.
Допустим, имеем set ... of byte. Можем через in определить, принадлежит ли данный байт множеству. Но какой его номер в множестве по порядку - никак? Значит, нужно иметь массив констант, дублирующий множество. Первой операцией in определяем - принадлежит ли данный байт множеству, если да - то второй операцией в цикле ищем его номер. В таком случае необходимости в set никакой, потому что, видимо, in определяет искомое тоже через цикл, поэтому в коде дублируется один и тот же поиск. Is it'nt ?

[digitalis]

Фигню запостил (#3,последний абзац). Осознал, подумавши. Нагрузка на организм: НГ, Рождество, коньяк, шампанское - бошка тупеет...