Дано натуральное число. Определить количество его нечетных делителей. написать программу паскаль)
Дано натуральное число. Определить количество его нечетных делителей.
написать программу паскаль)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы