Дано натуральное число. Определить количество его нечетных делителей.

написать программу паскаль)

Question

Леония

30 декабря, 11:19

+1

Ответы (1)

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

Сюша · Answer 1

Var n, i, k:Integer;

Begin

Read (n) ;

for i:=1 to n do

if (n mod i = 0) and (i mod 2 0) then k:=k+1;

Writeln (k) ;

end.

Дано натуральное число. Определить количество его нечетных делителей.написать программу паскаль)