Question

Найти все нечётные делители заданного числа.

Answer 1

program even_factors;
var
  i, n: integer;
begin
  write('Число: ');
  readln(n);
  i := 1;
  while (i * i) <= n do
    begin
      if (n mod i = 0) and (i mod 2 = 1) then
        begin
          write(i, ' ');
          if (n div i) mod 2 = 1 then
            write(n div i, ' ');
        end;
      i := i + 1;
    end;
end.