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.
Выбирайте лучший ;)
33*63=2079 на одной странице
2079*19=39 501 байт - для 19 страниц
' GCD - функция, которая принимает два числа, для которых нужно найти НОД
' К посту приложена фотография с блок-схемой
Function GCD(m As Integer, n As Integer) As Integer
m = Abs(m)
n = Abs(n)
For i = 1 To n * m
If m Mod i = 0 And n Mod i = 0 Then
GCD = i
End If
Next
End Function