Предмет: История, автор: Sofia0904

Какое дело отца продолжил Пётр 1?

Ответы

Автор ответа: вика1036

0

продолжил его деятельность

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: История, автор: liza5589

Отметь правильный ответ.
Какого вида соревнований не было в Древней Греции?
Гонки колесниц
Волейбол
Бег
Метание копья

6 лет назад

Предмет: Физика, автор: KOTNKN

Вычислите давление воды на дно одной из глубочайших морских впадин- Марианской, глубина которой 10 900 м. Плотность морской воды 1030 кг/м³

6 лет назад

Предмет: Математика, автор: ekaterinasacilo126

разложите 52 всеми возможными способами

6 лет назад

Предмет: Обществознание, автор: еваела

Нарисуй словесный портрет достойного гражданина
своей страны.
помогите пожалуйста)) завтра экзамен, а ответов нету((
заранее спасибо)

9 лет назад

Предмет: Информатика, автор: firuz504

Блок-схема(алгоритм ) нарисовать по этой программе!

INPUT "Kolichestvo okrugov. K="; k
INPUT "Kolichestvo partiy. M="; m
INPUT "Porog yavki izbirateley (v %). P="; p
DIM g(k, m + 1)
DIM pr(k, 1)
FOR i = 1 TO k
CLS
PRINT "Okrug "; i
g(i, 0) = i
FOR j = 1 TO m
PRINT "Golosov za partiyou "; j;
INPUT g(i, j)
pr(i, 1) = pr(i, 1) + g(i, j)
NEXT j
INPUT "Ne golosovalo "; g(i, m + 1)
pr(i, 0) = i
pr(i, 1) = 100 * pr(i, 1) / (pr(i, 1) + g(i, m + 1))
NEXT i
CLS
FOR i = 1 TO k
FOR j = 1 TO k
IF pr(i, 1) > pr(j, 1) THEN
x = pr(i, 1)
y = pr(i, 0)
pr(i, 1) = pr(j, 1)
pr(i, 0) = pr(j, 0)
pr(j, 1) = x
pr(j, 0) = y
END IF
NEXT j
NEXT i
PRINT "Itogi po golosovavshim"
PRINT "Okrug #", "Golosovalo (%)", "Pobedila partia #"
FOR i = 1 TO k
PRINT pr(i, 0), pr(i, 1),
IF pr(i, 1) >= p THEN
PRINT "Yes. Sostojlis",
max = 0
FOR j = 1 TO m
IF g(pr(i, 0), j) > max THEN
max = g(pr(i, 0), j)
x = j
END IF
NEXT j
PRINT x
ELSE PRINT "No. Ne sostojlis"
END IF
NEXT i

9 лет назад