Сколько битов информации несет знаковый разряд?

Перейди по ссылке https://uchebnik-rsh-3.ucoz.com/index/26_osobennosti_predstavlenija_chisel_v_kompjutere/0-229

Объяснение:

const

  a: array[1..6]of longint=(7,4,10,6,5,3);

var

  i: longint;

begin

for i: =1 to 6 do  write(9.8*a[i]*1200,' ');

writeln;

end.

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.