«Участники олимпиады» по столбцу « » в порядке убывания и выясните сколько участников получили результат

👇

Увидеть ответ

Ответ:

maxim1804

23.06.2021

5 5 2 4 1 3

100 312 0 312 500

Объяснение:

n участников олимпиады получили уникальные номера от 1 до n. В результате решения задач на олимпиаде каждый участник получил некоторое количество (целое число от 0 до 600). Известно, кто сколько набрал.

Перечислите участников олимпиады в порядке невозрастания набранных ими .

Входные данные

В первой строке содержится число n (0 ≤ n ≤ 101). Далее записаны n чисел - количество набранных участниками (первое число - это , набранные участником номер 1, второе - участником номер 2 и т.д.).

Выходные данные

Вывести n чисел - номера участников в порядке невозрастания набранных ими (участники, набравшие одинаковое количество балов должны выводится в порядке неубывания их номеров).

4,8(22 оценок)

Открыть все ответы

Ответ:

MrDackes

23.06.2021

1. Вот так это пишется с функцией

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    Result:=not found
    end
end;

begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
    Where(x->IsPrime(x)).Count)
end.

Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3

2. А вот так это пишется с процедурой

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    res:=not found
    end
end;

begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
    IsPrime(e,prime);
    if Prime then Inc(k)
    end;
Writeln('k=',k)
end.

Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4

4,8(69 оценок)

Ответ:

FarLime

23.06.2021

Объяснение:

Допустим, у нас есть сообщение «habr», которое необходимо передать без ошибок. Для этого сначала нужно наше сообщение закодировать при Кода Хэмминга. Нам необходимо представить его в бинарном виде.На этом этапе стоит определиться с, так называемой, длиной информационного слова, то есть длиной строки из нулей и единиц, которые мы будем кодировать. Допустим, у нас длина слова будет равна 16. Таким образом, нам необходимо разделить наше исходное сообщение («habr») на блоки по 16 бит, которые мы будем потом кодировать отдельно друг от друга. Так как один символ занимает в памяти 8 бит, то в одно кодируемое слово помещается ровно два ASCII символа. Итак, мы получили две бинарные строки по 16 битбит. распараллеливается, и две части сообщения («ha» и «br») кодируются независимо друг от друга. Рассмотрим, как это делается на примере первой части.

Прежде всего, необходимо вставить контрольные биты. Они вставляются в строго определённых местах — это позиции с номерами, равными степеням двойки. В нашем случае (при длине информационного слова в 16 бит) это будут позиции 1, 2, 4, 8, 16. Соответственно, у нас получилось 5 контрольных бит (выделены красным цветом)Таким образом, длина всего сообщения увеличилась на 5 бит. До вычисления самих контрольных бит, мы присвоили им значение «0».

4,8(69 оценок)

Это интересно:

Питомцы-и-животные

02.01.2021

Как приучить щенка к его имени: основные правила и эффективные методы...

Компьютеры-и-электроника

29.03.2023

Как восстановить документ Word: готовые решения для всех случаев...

Дом-и-сад

27.10.2020

Как побелить мебель: простые способы обновления старых вещей...

Компьютеры-и-электроника