Каков информационный объем сообщения о том, что день рождения нового соседа по дому приходится на первый квартал года? (Кварталов в году ровно 4, каждый из них состоит из 3 месяцев)

ответ напишите в битах, но без указания размерности.

var

x: real;

begin

readln(x);

writeln(round(x));

end.

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.

(4 > -(4 + x)·x)) = true

(30 > x·x) = false

4> -4x-x^2

x^2+4x+4> 0

(x+2)^2> 0

x< > -2

(30 < x·x)

|x|> root(30)~5.47

x = 6

var s,i,n,m : longint;

begin

  readln(m,n);

  if m> n then

  begin

      s: =m;

      m: =n;

      n: =s

  end;

  s: =0;

  for i: = m to n do if i mod 12=0 then s: =s+i;

  writeln(s);

end.