Если я не ошибаюсь, правильный ответ - 3.
<span>Программа на VBA Excel</span>
<span>Sub pr02()</span>
S = 0
For n = 10
To 99
<span>
If Int(n / 2) = n / 2 Then
</span><span> Else</span><span>
S = S + n</span><span>
End If
</span>
Next n
Cells(2, 2)
= S
End Sub
<span>Печатает в ячейке B2 сумму 2475</span><span> </span>
Сделай не Integer а Real и все) Это из-за деления. Интеджер ругается на деление)
Dim R As Single, p As Single, h As Single, V As Single
p = 3.1415926
R = InputBox("Введите радиус основания")
h = InputBox("Введите высоту цилинтра")
V = p * R ^ 2 * h
<span>MsgBox V</span>
О, это же КИТ,
1-2
2-4
3-8
.
6-64
Складываем 2+4+8+64=78