<span>var
m:real;
n,i:integer;
procedure MathW(var i:integer;var m:real);
var
x,p:real;
begin;
write('Введите значение ',i,':');
readln(x);
write('Введите вероятность ',i,':');
readln(p);
m:=m+x*p;
end;
begin;
write('Введите количество испытаний:');
readln(n);
for i:=1 to n do
MathW(i,m);
write('Result:',m);
end.
</span>
цыкл выполниться 8 раз, каждый раз к S прибавляется 7, следовательно после выполнения цикла, в S будет 56, оно и выведется
Объяснение:
i = log2(64) = 6 бит
3 Кбайт = 3072 байт = 24576 бит
<u>2</u><u>4</u><u>5</u><u>7</u><u>6</u><u> </u><u>÷</u><u> </u><u>6</u><u> </u><u>=</u><u> </u><u>4</u><u>0</u><u>9</u><u>6</u><u> </u><u>символов</u>
Мощность алфавита - это количество символов, из которых состоит алфавит.
26 букв латинского *2= 52 символа и 5 основных знаков арифм операций = 52+5=57 символов -ответ
<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrReal(8);
Writeln('Введен массив'); b.Println
end.
<u>Пример</u>
-3.2 0 12 -7 0.003 12.43 3.141593 11
Введен массив
-3.2 0 12 -7 0.003 12.43 3.141593 11