Регистрация
idkcjdosjn
12.11.2022 17:13
Информатика
Есть ответ 👍

Напишите паскаль программы

184
288
Посмотреть ответы 1

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

дэфолт123
дэфолт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

Популярно: Информатика