В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
vladik28092006
vladik28092006
08.05.2022 23:26 •  Информатика

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

Показать ответ
Ответ:
taniataolia
taniataolia
06.07.2020 16:24
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
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота