Ответы на вопрос:
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
Популярно: Информатика
-
GuldanaManarbek19.12.2020 16:47
-
nikaerika1110.12.2022 07:52
-
ismailtagiev2006.08.2020 13:13
-
Vitaminka12345678901.11.2021 12:57
-
egorikmail82621.10.2022 17:20
-
SvinkaPeppa77713.02.2021 22:48
-
hihilaim05.07.2020 20:56
-
MasterGameTV130.07.2022 00:46
-
airmenplay11.08.2022 20:01
-
McEgorKa15.04.2022 00:17