Это вам такое в школе задают??
Давайте будем кодировать температуры от 0 до 64 градусов, а потом просто вычитать из них 30. Чтобы закодировать число от 0 включительно до 64 исключительно необходимо 6 бит (2 в 6-ой = 64). Если мы хотим кодировать включительно нам потребуется 7 бит.
Uses
Math;
...
MyNumber:=RandomRange(Start, Stop);//1 вариант
MyNumber:=Random(Stop)+Start;//2 вариант. Для него не нужен модуль <span>Math;
</span>Start - От
Stop - До
1- 159,2-4,3-15,4-1000010,5-100000,6-1011