Автор - vipmashkaroma 11 лет назад

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

Ответ

Автор - leon123

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.

Предыдущий вопрос Следующий вопрос

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.

© 2026 Все права защищены Политика конфиденциальности Контакты