ТутРешу.Ру

Задается целое число…

Задание:

Задается целое число 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.




Знаете другой ответ?

Отправить свой ответ