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

Question

Информатика

Санюша

23 апреля, 14:36

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

+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. Это?