Sub Main
dim n as integer
dim k as integer
dim p as integer
dim min as integer
dim s as string
n=inputbox("Сколько будет чисел?")
dim a(n)
for i=1 to n
<span> a(i)=inputbox(i & " число")
</span><span> s=s & a(i) & "; "
</span>next i
min=a(1)
k=1
for i=2 to n
<span> if a(i)<min then
</span><span> min=a(i)
</span><span> k=i
</span><span> end if
</span>next i
p=a(k+1)
for i=k+2 to n
<span> p=p*a(i)
</span>next i
s=s & "p=" & p
msgbox(s)
<span>End Sub</span>
основное - скорость и точность
а дальше уже зависит от возможностей программы
например просмотр промежуточных результатов
выставление точности расчетов
задание алгоритма расчета любой сложности
быстрый перерасчет при изменении начальных данных
динамическое изменение результатов в зависимости от исменения условий
1. Переводим число в двоичную систему
168.625₁₀ = <span>10101000.101₂
2. Сдвигаем точку влево так, чтобы она отделяла в целой части только одну цифру и фиксируем величину сдвига, как двоичный порядок
</span>10101000.101₂ = <span>1.0101000101₂×2⁷
3. Отбрасываем целую часть, получая мантиссу </span><span>0101000101₂
4. Прибавляем к порядку 127
7+127 = 134₁₀ = 10000110₂
5. Приписываем к порядку его знак - 0 (сдвиг был влево), получая
010000110₂
6. Приписываем справа мантиссу и дополняем её нулями справа до 32 разрядов
</span>01000011001010001010000000000000₂ = 01000011 00101000 10100000 00000000₂
7. Переводим результат в шестнадцатиричную систему счисления, заменяя каждые 4 двоичных цифры соответствующей шестнадцатиричной
01000011 00101000 10100000 00000000₂ = 43 28 A0 00₁₆<span> </span>
1536/3072=4 бита
Алфавит содержит 16 символов
Ответ 4 так как направо 20 и ещё раз направо 40 в сумме 60 в правильном треугольнике угол равен 60