Решите а) сколько килобайтов составит сообщение из 384 символов 16 символьного алфавита? б) два текста содержат одинаковое количество символов. первый текст составлен в алфавите мощностью 32 символа, второй - мощностью 64 символа. во сколько раз различаются информационные объёмы этих текстов?

A) n=2^i=16=2^4, значит i=4 бит     v=k*i=384*4/8*1024=0,375 кб б) i1=5 бит     i2=6 бит     k1=k2     v=k*i     k=v/i     v1/i1=v2/i2     v1*i2=v2*i1     6v1=5v2     значит v1 в 1,2 раза меньше v2

Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию! 1)

begin

  var y : = readreal;

  var z : = y ** 10;

  var x : = z * (1 + z + sqr(z));

  x.println;

end.

пример

1.543

453619.091174671

2)

procedure per(a, b: real; var p: real);

begin

  p : = a * b

end;

begin

  var (x, y) : = readreal2;

  var периметр: real;

  per(x, y, периметр);

  периметр.println;

  var (n, m) : = readreal2;

  per(n, m, периметр);

  периметр.println;

  var (c, d) : = readreal2;

  per(c, d, периметр);

  периметр.println

end.

пример

6 13

78

3.5 8.032

28.112

14 23.002

322.028

const n=20;

var r: array[1..n] of integer;

i,a,b,c,s: integer;

begin

a: =0;

b: =0;

for i: =1 to n do  

  begin

  r[i]: =random(n)-random(n);

  write(r[i]: 3,'[',i,']');

  end;

writeln;

for i: =1 to n do

  begin

  if a< 1 then

    begin

    if r[i]< 0 then  

      begin

      b: =i;

      a: =a+1;

      end;

    end;

  end;

a: =0;

c: =0;

  for i: =n downto 1 do

  begin

    if a< 1 then

    begin

      if r[i]< 0 then

      begin

      c: =i;

      a: =a+1;

      end;

    end;

    end;

s: =0;

  for i: =1 to n do  

    s: =s+r[i];

writeln('номер первого отрицательного элемента - ',b);

writeln('номер последнего отрицательного элемента - ',c);

writeln('сумма элементов в массиве - ',s);

end.