Dim a(1 to 20) as Integer
Dim i as Integer
Randomize Timer
For i=1 To 20
a(i)=Int(50*Rnd)-25
Print a(i);
Next i
Print
For i=1 To 20
If a(i)>0 Then Print i;
Next i
Print
<span>32= 100000 2cc 6 бит на символ
64= 1000000 2cc 7 бит на символ
</span><span>80*6/70*7 = 48/49</span>
formula = x * y*y + sqrt(x) - sqrt((x*x*x) + (z*z*z*z));
P=m/n
m- количество возможных благоприятных исходов
n - общее число исходов
n=10+10+2+3=25
m=2
P=2/25=0,08