Паскаль. Помогите решить с помощью циклов. 9 кл.

Найти количество нечетных делителей натурального числа, больших К (К вводится с клавиатуры) Помогите написать хотя бы математическую модель.

Question

Информатика

Венуля

30 июля, 14:48

Паскаль. Помогите решить с помощью циклов. 9 кл.

Найти количество нечетных делителей натурального числа, больших К (К вводится с клавиатуры) Помогите написать хотя бы математическую модель.

+5

Ответы (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.

Выбирайте лучший;)