1) y:= sqrt(a*x+b*x+c*c)/(15*x-sin(x))
2) y:= -12*sqrt(x*(y*y)+cos(a/2))
3) z:= (sin(x)+cos(x))/(sqrt(x*x+15))
4) S:= ((26*k-m)/(6-4*k))-56*m*k
5) y:= x-(sqrt((y*y+2)/2))+2*y
Запишем условие задачи:
Поскольку в сообщениях одинаковое количество символов, то К1=К2. Соотношение количества информации можно записать как I1=1.5*I2. Общее кол-во символов в алфавите обозначается буквой N, по условию N1<=10, N2<=10.
Решение: I1=K1*i1; I2=K2*i2; Подставим в условие I1=1.5*I2 значения I1 и I2. Получаем K1*i1=1.5*K2*i2
Сократим в обеих частях уравнения К1 и К2, у нас останется
i1=1.5*i2
По условию мощности обоих алфавитов не превышают число 10, запишем это так
10>=2 в степени i1
10>=2 в степени i2
Предположим, что i2=1 бит, тогда i1=1.5 бита (а это противоречит условию)
Предположим, что i2=2 бита, тогда i1=3 бита -это и есть ответ задачи
Var
i, s: integer;
begin
s := 0;
for i := -5 to 28 do
s := s - i;
writeln(s);
end.
(Программа Паскаль )
var f : integer;
begin
readln (f);
if (f < 0) then writeln (-3)
else writeln (sqrt (f));
end.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=3; m=4;
Var
ma:array[1..n,1..m] of integer;
arsub:array[1..m] of boolean;
i,j,s:integer;
begin
randomize;
writeln('Matrix:');
for i:=1 to n do
begin
for j:=1 to m do
begin
ma[i,j]:=random(-2,10);
write(ma[i,j]:4);
if ma[i,j]<0 then arsub[j]:=true;
end;
writeln;
end;
for j:=1 to m do
if arsub[j]=true then
for i:=1 to n do
s:=s+ma[i,j];
writeln('Res=',s);
end.
Пример работы программы:
Matrix:
2 -2 9 9
0 9 10 1
4 9 -1 3
<span>Res=34</span>
