Задание:
Задается целое число N. Нужно вывести количество четных делителей числа N. Формат входных данных Единственная строка входного файласодержит единственное целое число N (1 <= N <= 1000)
Решение:
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.
Знаете другой ответ?