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

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

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

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

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

Question

Ждан

11 октября, 04:09

+1

Ответы (1)

Знаете ответ на вопрос?

Ада · 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.