2) Команда( B:= 3) Значение переменной 3
3)Имя переменной С ,Значение переменной 2+3
Число бит информации определяется как log 2 (N/N') где N - число возможных вариантов ДО получения информации, а N' - после.
Т.е. нам надо посчитать сколько существует комбинаций из 12 подбрасываний всего (2^12 = 4096) и сколько таких, где 5 орлов идут подряд (таких очевидно 8 - 111110000000, 011111000000, 001111100000, 000111110000, 000011111000, 000001111100, 000000111110, 000000011111).
Имеем log 2 (4096 / 8) = log 2 (2^12 / 2^3) = log 2 (2^9) = 9 бит
Как и сказал, смог только первый.
Для начала нужно ввести числа квадратного уравнения в строку. То есть, числа вместо a, b и c. А потом надо ввести в строку число "х", чтобы проверить его на наличие решения.
Вот сам код:
program name;
var a, b, c, d, x1, x2, x3: real;
begin
writeln('Введите коэффициенты квадратного уравнения') ;
readln(a, b, c);
d:=sqr(b) - (4*a*c);
x1:= (-b-sqrt(d)) / 2*a;
x2:= (-b+sqrt(d)) / 2*a;
Writeln('Введите число х, чтобы проверить, является ли оно корнем уравнения') ;
readln(x3);
If x3 = x1 then
Writeln('Число ', x3, ' является корнем уравнения.')
Else If x3 = x2 then
Writeln('Число ', x3, ' является корнем уравнения.')
Else
Writeln('Число ', x3, ' не является корнем уравнения.') ;
End.
Проверка финансово-хозяйственной деятельности за определенный период времени