2^5 = 32 < 59 <= 64 = 2^6, т.е. необходимо 6 бит для кодирования каждой комбинации
Тогда инфообъём = 6*80 бит = 6*10 байт = 60 байт
Ответ:
Sub F(x)
If x > 0 Then y = Exp(x)
Else
If x < 0 Then y = Tan(x)
End If
End Sub
Объяснение:
Простейшие встроенные функции для и tg x.
// PascalABC.NET 3.3
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.
Пример:
20 87 15 46 61 0
5 2
Program kv_ur;
var a, b, c, d, x1,x2, x:real;
begin
read(a, b, c);
d:= sqr(b) - 4*a*c;
if d<0 then write('нет решений');
if d = 0 then
begin
x:= -b/(2*a); write('один корень: ',x:5:2)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
<span> x2:=(-b-sqrt(d))/(2*a);
</span> write('два корня: ', 'x1=',x1:5:2,'x2=',x2:5:2)
end
end.