Написать программу на vb согластно . даны итоги выборов в думу в городе: по k округам известно число голосовавших за представителей m партий, а также число не участвовавших в голосовании по каждому округу. выборы в округе считаются состоявшимися, если в голосовании приняло участие не менее p % избирателей. определить в каких округах выборы состоялись.
Dim k As Integer
Dim m As Integer
Dim p As Single
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim x As Integer
k = InputBox("Количество округов")
m = InputBox("Количество партий")
p = InputBox("Порог явки изберателей (в %)")
s = "Выборы состоялись в округах: "
For i = 1 To k
For j = 1 To m
x = InputBox("Округ " & i & ". Голосов за партию №" & j)
n = n + x
Next j
x = InputBox("Округ " & i & ". Не голосовало")
If (n / (n + x) * 100) > p Then s = s & i & "; "
n = 0
Next i
MsgBox (s)
End Sub