Решение смотри во вложении.
Const D = 2.54;
var i: integer;
rez: real;
begin
for i := 1 to 10 do begin
rez := i * D;
writeln( i, ' см = ', rez, ' дюйм' );
end;
<span>end.</span>
П0 sin ИП0 1/x + С/П
Для значения 5 выдаёт "-7,5892425 -1".
Количество различных значений температуры = 30-(-10)+1 = 41.
Для записи одного значения требуется log(2)41 ≈ 6 бит (2^6 = 64)
Объем результатов наблюдений = 365*6 бит = 2190 бит