Определить количество нечётных делителей числа

@Максим098 · Регистрация: 26.02.2017

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

@Hitoku · 30.03.2017, 18:03

Pascal

var n,k,i:integer;
begin
  readln(n); k:=0;
  for i:=1 to n do
    if i mod 2>0 then
      if n mod i = 0 then k:=k+1;
  write(k);
end.

@ZX Spectrum-128 · 30.03.2017, 19:31

Комментарий модератора

Максим098, не дублируйте темы. В случае дальнейших нарушений будете наказаны.

@Максим098 0 / 0 / 0 Регистрация: 26.02.2017 Сообщений: 115
		1
	Определить количество нечётных делителей числа 30.03.2017, 17:42. Показов 4445. Ответов 2 Метки нет (Все метки) Дано натуральное число N. Определить количество его нечетных делителей. с помощью for 0

	30.03.2017, 19:31

Решение