Решение в Эксель. Обратите внимание на потерю точности, вызванное ограничением на количество значащих цифр в представлении чисел.
A=1; b=1
1 шаг цикла: a=a+1=1+1=2; b=b*2=1*2=2; 2>8 ⇒ false
2 шаг цикла: a=a+1=2+1=3; b=b*2=2*2=4; 4>8 <span>⇒ false
</span>3 шаг цикла: a=a+1=3+1=4; b=b*2=4*2=8; 8>8 <span>⇒ false
</span>4 шаг цикла: a=a+1=4+1=5; b=b*2=8*2=16; 16>8 <span>⇒ true
s=a+b=5+16=21
</span>Ответ: тело цикла выполнится 4 раза, a=5, b=16, s=21
VB.
Dim i As Integer
Dim summ As Integer
Dim simv As String
simv = "бвгджзклмнпрстфхцчшщ"
Dim n As String
n=InputBox ("Введите строку")
For i = 1 To Len(n)
If InStr(simv, Mid(CStr(n), i, 1)) > 0 Then summ += 1
Next<span>
</span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535</span><span>
MsgBox("Всего согласных в строке " & summ & ", что является " & Len(n) & "/" & summ & "=" & Len(n) / summ & " долей")</span>