1) для передачи секретного сообщения используется код, состоящий из пятеричных цифр. при этом все цифры кодируются одним и тем же (минимально возможным) количеством бит. определите информационный объём сообщения (в битах) длиной в 200 символов.

200 * 3 = 600 бит  600 / 8 = 75 байт.

Var       x, s: real;       i, n: integer; begin       readln(x, n);       s : = 1;       for i : = 1 to n do               s : = s + sin(i * x) / i;       writeln(s); end. //или //pascalabc.net 3.1 сборка 1219 begin       var x : = readreal('x =');       println(               range(1, readinteger('n ='               aggregate(1.0, (s, r)-> s + sin(r * x) / r)       ); end.

i,n: integer;

procedure IN1(var a,b:real;n:integer;var y:real);

var

p:real;

i:integer;

begin

y:=1;

for i:=1 to n do

begin

p:=exp(b*ln(a));

y:=p*y;

end;

end;

procedure IN2(var a, b:real; n:integer; var y1:real);

var

p:real;

i:integer;

begin

y1:=0;

for i:=1 to n do

begin

p:=exp(b*ln(a));

y1:=y1+p;

end;

end;

begin

write(' Введите a, b,n');

readln(a,b,n);

IN1(a,b,n,y2);

writeln('p1 ',y2:10:2);

writeln(' Введите c, b,m');

read(a,b,n);

IN2(a,b,n,y3);

writeln('s ',y3:10:2);

write(' Введите e, f,L');

readln(a,b,n);

IN1(a,b,n,y5);

writeln('p2 ',y5:10:2);

y6:=(y2+y3)/y5;

writeln(y6:8:3); end.