//Элементы a[i,i] - элементы главной диагонали, в переменной p будем хранить их произведение.
var B: array[1..100, 1..100] of integer;
i, j, n: integer; P: longint;
begin
write('Введите размерность: ');
readln(n);
p := 1;
for i := 1 to n do begin
for j := 1 to n do begin
B[i, j] := Random(100);
write(B[i, j]:3);
if i = j then p := p * B[i, j];
end;
writeln;
end;
writeln('Произведение главной диагонали матрицы: ', p);
end.
Дано: ИНФОРМАТИКА, i-?
Решение:
<span> i=log2(1/P)
</span>И: i=log2(1/0,062)=4 бит
Н: i=log2(1/0.053)=4,24 бит
Ф: i=log2(1/0.002)=8,97 бит
О: i=log2(1/0.090)=3,47 бит
Р: i=log2(1/0.040)=4,64 бит
М: i=log2(1/0.026)=5,27 бит
А: i=log2(1/0.062)=4,01 бит
Т: i=log2(1/0.053)=4,24 бит
К: i=log2(1/0.028)=5,16
i=4+4,24+8,97+3,47+4,64+5,27+4,01+4,24+4+5,16+4,01=52,01 бит
Ответ: 52,01 бит
А = 10
В = 20
1. Подставляем числа в следующее уравнение
А = -В * В / А
А = -20 * 20 \ 10 = -40
2. Далее идет разветвление алгоритма, выполняем уравнение:
А > B
-40 > 20
3. Поскольку у нас А меньше В, то выполняем команду:
С = 2 * А - В
С = 2 * -40 - 20 = -100
Ответ : С:=(-100)
P.S. Странно получается, у тебя там на схеме, нету стрелочки от последнего пункта до первого?
<span>¬</span>(7x-3<75)\/(x^2-x>65)=0;
x=8