Вроде как 4 бита информации, так как объем знаний постоянно уменьшается в 2 раза(а уменьшение объема информации в 2 раза даёт один бит информации)
0/2-не аттестованны - 1 бит
1/2 - 1 бит
1/4 - 1 бит
1/8 - 1 бит
Наверное так
1+1+1+1=4
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := Arr(7, -5, -2, 6, 8);
var b := Arr(0, -1, -1, 0, 0);
var c := a.Zip(b, (p, q)-> p + q).ToArray;
c.Println
end.
===== PascalABC.NET =====
begin
var x := ReadReal('x =');
var y: real;
if x = 1 then
y := Ln(Abs(Sin(x)))
else if x = 2 then
y := Exp(x) + Sqrt(x)
else
y := 0.5 + Abs(x);
Println(y)
end.
Объяснение:
Формула для Х = 2 весьма дурацкая, потому что для положительного числа нет смысла брать его модуль: он всегда совпадает с числом. Посему модуль я убираю.
var a,a1,a2,x,c,i: integer;
begin
write('Введите x = ');
readln(x);
writeln('Введите a1 и a2:');
readln(a1,a2);
for a:=a1 to a2 do
begin
c:=a*x;
writeln(a,' * ',x,' = ',c);
end;
end.
Пример:
Введите x = 5
Введите a1 и a2:
2 7
2 * 5 = 10
3 * 5 = 15
4 * 5 = 20
5 * 5 = 25
6 * 5 = 30
7 * 5 = 35