Получены результаты выборов в городскую Думу : по каждому из К округов известно число голосовавших за представителей каждой из М партий, а также известно число не участвовавших в голосовании?

Yyyfff 8 авг. 2020 г., 16:28:53

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.

Maximkhrulev 22 окт. 2020 г., 16:07:09 | 10 - 11 классы

По заданной фразе a$ сформировать и вывести фразы, слова в которых являются всевозможными перестановками слов исходной фразы?

По заданной фразе a$ сформировать и вывести фразы, слова в которых являются всевозможными перестановками слов исходной фразы.

Исходная информация вводится с клавиатуры(QBasic).

ХАрёк11 24 мар. 2020 г., 01:47:06 | 5 - 9 классы

Одиннадцать одноклассников решают голосованием, куда пойти после уроков?

Одиннадцать одноклассников решают голосованием, куда пойти после уроков.

При голосовании каждый может быть только "за", либо "против".

Сколько различных вариантов голосования может быть?

Сколько бит потребуется, чтобы закодировать результаты голосования?

Dleznjuk 23 февр. 2020 г., 21:36:26 | 5 - 9 классы

Дан массив А целых чисел, состоящий из 20 элементов?

Дан массив А целых чисел, состоящий из 20 элементов.

Заполнить с клавиатуры.

К чётным элементам прибавить А, а от нечётных отнять В(числа вводятся с клавиатуры).

Lelik0819 5 мая 2020 г., 22:56:26 | 10 - 11 классы

Пусть голосуют три человека голосование (Да нет) Запишите все возможные исходы голосования?

Пусть голосуют три человека голосование (Да нет) Запишите все возможные исходы голосования.

Shjwjan 14 янв. 2020 г., 09:31:33 | 10 - 11 классы

Паскаль Пусть вводится последовательность вещественных чисел, оканчивающаяся нулем и состоящая более чем из одного ненулевого элемента?

Паскаль Пусть вводится последовательность вещественных чисел, оканчивающаяся нулем и состоящая более чем из одного ненулевого элемента.

Определите наибольшее число последовательности.

Ann2406x 16 июл. 2020 г., 02:56:57 | 10 - 11 классы

С клавиатуры вводится положительное двухзначное число?

С клавиатуры вводится положительное двухзначное число.

Найдите произведение исходного числа и числа, записанного теми же цифрами, но в обратном порядке.

Chernyshovaali 19 сент. 2020 г., 15:44:36 | 5 - 9 классы

Как на Pascal ABC написать программу, которая будет считать сумму цифр в числе, введенного с клавиатуры?

Как на Pascal ABC написать программу, которая будет считать сумму цифр в числе, введенного с клавиатуры?

Количество цифр в числе не известно!

Число целочисленное!

Желательно с объяснениями ( вне программы ).

Заранее спасибо!

Кариша2002 13 окт. 2020 г., 04:24:05 | 5 - 9 классы

Написать программу, которая вычисляет вычисляет процент от числа?

Написать программу, которая вычисляет вычисляет процент от числа.

Число и количество процентов вводится с клавиатуры.

Валери2002 2 февр. 2020 г., 11:54:09 | 5 - 9 классы

С клавиатуры вводятся натуральные числа?

С клавиатуры вводятся натуральные числа.

Определить кол - во чисел, которые делятся на 5, наибольшее из них.

Kenzzo 24 нояб. 2020 г., 17:16:23 | 5 - 9 классы

Написать программу которая считает количество цифр в числе и их сумму?

Написать программу которая считает количество цифр в числе и их сумму.

Паскаль.

Число вводится с клавиатуры.