<span>наука об общих закономерностях процессов у</span>правления<span> и передачи и</span>нформации<span> в различных с</span>истемах
var
A: array of Integer; // объявление динамического массива
i: Integer;
begin
i := 0;
while True do begin
SetLength (A, i + 1); // установить новый размер массива
Write ('Введите новое значение массива: ');
ReadLn (A [i]);
if A [i] = 2 then
Break;
Inc (i);
end;
Write ('Элементы массива, возведенные в квадрат: ');
for i := 0 to High (A) do
Write (IntToStr (A [i] * A [i]) + ' ');
WriteLn;
WriteLn ('Количество элементов: ' + IntToStr (i));
end;
Пусть вероятность достать синий шар p
тогда количество информации в сообщении о том, что добыт синий
i = -log(p)/log(2)
-3*log(2) = log(p)
log(2^(-3)) = log(p)
p = 1/8
если общее число шаров N
то синих N/8
красных N/8*3
белых N-N/8-3*N/8 = N/2
и по условию белых 36
N/2 = 36
N = 72
это ответ :)
Ответ: 1022 по основанию 8 --> 1*8^3+0*8^2+2*8^1+2*8^0 = 512+0+16+2 = 530 по основанию 10
А) имя массива "а"
Б) в нем 6 элементов
В) тип элементов массива - целые числа (Integer)
Г) данные в массив введены в виде констант (Const)
Д) третья строка программы, после знака "=": (1, 7, 3, 6, 0, 10)
Е) программа подсчитывает сумму элементов массива, делит эту сумму на 6 и результат выводит на экран
