Написать программу на vb согластно . даны итоги выборов в думу в городе: по k округам известно число голосовавших за представителей m партий, а также число не участвовавших в голосовании по каждому округу. выборы в округе считаются состоявшимися, если в голосовании приняло участие не менее p % избирателей. определить в каких округах выборы состоялись.

128

352

Посмотреть ответы 2

Ответы на вопрос:

дэфолт123

Информатика

4,8(5 оценок)

Sub z() 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