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

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

Question

Тимоша

13 января, 00:53

+2

Ответы (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.

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