Давайте будем кодировать температуры от 0 до 64 градусов, а потом просто вычитать из них 30. Чтобы закодировать число от 0 включительно до 64 исключительно необходимо 6 бит (2 в 6-ой = 64). Если мы хотим кодировать включительно нам потребуется 7 бит.
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. Это?