Помогите найти количество нечетных делителей числа в паскале

Question

Информатика

Юра

13 июля, 09:11

Помогите найти количество нечетных делителей числа в паскале

+3

Ответы (1)

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

Марьян · Answer 1

Var K, n, i: integer;

begin

writeln ('Введите число') ;

readln (K) ; n:=0;

for i:=1 to K do

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

writeln ('Количество нечетных делителей числа равно ', n) ;

readln

end. Это?