Для чого призначене кодування економічної інформації

1)

Аня сестра Вадим. Вера сестра Аркадия. Ира сестра Артёма

В условии сказано что один из них не клал грибы в корзину своей сестры, а про других не говорилось, Вадим и Аркадий клали грибы в корзины Ани и Веры. Артём не клал не в одну корзину, но так как каждый именно своей сестре, то Вадим Ане, значит она его сестра, Аркадий Ане и Вере, его сестрой не может быть Аня так как она сестра Вадима, значит его сестра Вера. Остаётся Артём и Ира, значит Ира сестра Артёма.

2)

Б

3)Объем информации, который занимает один символ компьютерного алфавита из 256 символов = 8 бит или 1 байт. В 1кбайте=1024бит

Значит 11×1024=11264

Далее 22528-11264=11264.

Получается мощность алфавита в 2 раза больше объёма данного сообщения.

1)

program FunctionIFfull;

uses crt;

var

 x, y : real;

begin

 clrscr;

 write('x = ');

 readln(x);

 if x>=1 then y:= sqrt(3*x+4)  

 else  

     if x<=-1 then y:= sqr(x)+4*x  

     else y:=4*sqr(x)-2*x+3;

 writeln('y = ', y:8:2);

 readln;

end.

2)

program FunctionIFshort;

uses crt;

var

 x, y : real;

begin

 clrscr;

 write('x = ');

 readln(x);

 if x>=1 then y:= sqrt(3*x+4);

 if x<=-1 then y:= sqr(x)+4*x;

 if (x>-1) and (x<1) then y:= 4*sqr(x)-2*x+3;

 writeln('y = ', y:8:2);

 readln;

end.

Объяснение:

1. Повна команда розгалуження має вигляд

if < логічний вираз > then <команда 1> else < команда 2 >;

2. Коротка команда розгалуження має вигляд

if <логічний вираз > then <команда 1>;