По информатике. решите что сможите. 1. количество экзаменационных билетов по информатике – 32. сколько информации содержит сообщение о том, что ученик вытащил 13 билет? 2. сообщение о том, что из коробки вынули наугад 1 шар и он оказался красным, содержит 4 бита информации. сколько разноцветных шаров было в коробке? 3. текст, набранный в редакторе блокнот, содержит 4 страницы по 2000 символов на каждой. найдите объем текста в байтах и килобайтах. 4. какой из двух рисунков в формате *.bmp (без дополнительного сжатия) занимает больше места на диске: а) 300 х 200 (пикселей) при 8-цветной палитре или б) 120 х 100 (пикселей) при 256-цветной палитре?

1.  32=2^i, i=5 бит 2. n=2^4, n=16 шаров 3. 1 символ - 1 байт 2000*4=8000 символов=8000бит, приблизительно=7,8кб 4. 8=2^3, 300*200*3 бита=18000бит 256=2^8, 120*100*8=96000бит второй рисунок занимает больший объём

program xxx;

  var a, b, s : real;

              r, p, d : real;

begin

    write ('введите певрое число- ');

    readln (a);

    write ('введите второе число- ');

    readln (b);

    s: = a+ b;

    r : = a - b;

    p : = a* b;

    d : = a/b;

    writeln ('сумма =', s);

    writeln ('разность =', r);

    writeln ('произведение =', p);

    writeln ('частное = ', d);

    readln

end.

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end.