Ведите в массив 7 чисел-значений давления, измеренного в миллиметрах ртутного столба. преобразуйте данные значения в значения, измеренные в килопаскалях(1мм.рт.ст. = 0.133кпарезультат вывести на экран через пробел.

Uses crt; const n=7; var a: array[1..n] of real; i: integer; begin for i: =1 to n do read(a[i]); for i: =1 to n do begin a[i]: =a[i]*0.133; write(a[i],' '); end; end.

Закодировать  - я точно знаю!                                                                                                                                                      

27   13     6     3     1     делим 27 на 2 , в частном берем без целое число  (=13) 1       1       0   1     1       < ===     27(10) =11011(2)   пишем в обратном порядке                                   делим 13 на 2, в частном берем целое без округления 6                                   делим 6 на 2 (=3) и т.д. 11     5     2     1 1       1     0     1         11(10) = 1011(2) 2001   1000   500     250     125   64   32   16   8   4   2   1 1               0       0         0       1       0     0     0     0   0   0   1                 2001(10)  =100000010001(2)