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

Question

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

Answer 1

52

tiao123

22 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить