Назови основные показатели погоды (их 4)

Температура, атмосферное давление, плотность и влажность воздуха, скорость и направление ветра, в современном, быстро меняющимся мире важно знать принципы изучения погоды, климата и климатообразующие факторы.

Климатические характеристики: 1.атмосферное   давление, 2.скорость и 3.направление ветра, 4.температура и 5.влажность воздуха, 6.облачность и 7.атмосферные осадки

Так как исходное число содержит ненулевые целую и дробную части, а для перевода целых и дробных чисел используются разные алгоритмы, то мы переведем сначала целую часть числа, затем дробную и в конце синтезируем полное число. переводим целую часть, то есть число 12. 12: 2=6 0 6: 2=3   0 3: 2=1     1 12 в двоичной системе счисления - 1100 переводим дробную часть, то есть 0,25 умножим дробную часть 0,25 на два, затем дробную часть полученного числа снова умножим на два и так далее. повторять умножение нужно до тех пор, пока последняя дробная часть не обратится в ноль, либо не исчерпается разрядка сетка машины (в нашем случае 16 двоичных знаков в дробной части). 0,25*2=0,5 0,5*2=1 получено целое число, дробная часть которого равна нулю, процесс умножения можно прекратить. теперь мы можем записать 0,25 в двоичной системе счисления, целая часть у нас равна нулю, а цифры в дробной части (слева направо) это есть целый части наших произведений (сверху вниз), то есть, в самом младшем разрядке оказывается целая часть последнего произведения. 0,25=0,01 синтезируем исходное число 12,25 как композицию знака, целой и дробной частей. 12,25 в двоичной системе счисления - 1100.01

Сумма 4-х степеней n-значного числа не превосходит n * 9^4 < 10000n. с другой стороны, n-значное число больше 10^(n-2). для того, чтобы одно было равно другому, должно выполниться 10^(n - 2) < 10000n, 10^n < n * 10^6. так может быть, только если n < 7, поэтому ищем числа среди 1..999999. код: function sum4deg(n: integer): integer; var   s: integer; begin   s : = 0;   repeat     s : = s + sqr(sqr(n mod 10));     n : = n div 10;   until n = 0;   sum4deg : = s; end; var   i: integer; begin   for i : = 1 to 999999 do     if i = sum4deg(i) then       writeln(i); end.