задается целое число N. нужно вывести количество четных делителей числа N. Формат входных...

Question

задается целое число N. нужно вывести количество четных делителей числа N.

Формат входных данных

Единственная строка входного файла содержит единственное целое число N(1<=N<=1000)</p>

Формат выходных данных

выведите ответ к задаче

Answer 1

Var
  i, n, k: integer;

begin
  read(n);
  for i := 1 to n do
    if (i mod 2 = 0) and (n mod i = 0) then
      k := k + 1;
  writeln(k);
end.

Comments

если помогло, то выбери лучшим ответом плиз