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

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

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

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

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

1

Ответы и объяснения

2013-11-16T14:14:30+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.

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