ответ: просто следуй пунктам оформления.
Объяснение:
При подготовке и оформлении документов УСОРД используют следующие реквизиты (ГОСТ Р 6.30–2003):
01 – Государственный герб Российской Федерации;
02 – герб субъекта Российской Федерации;
03 – эмблема организации или товарный знак (знак обслуживания);
04 – код организации;
05 – основной государственный регистрационный номер (ОГРН) юридического лица;
06 – идентификационный номер налогоплательщика / код причины постановки на учет (ИНН/КПП);
07 – код формы документа;
08 – наименование организации;
09 – справочные данные об организации;
10 – наименование вида документа;
11 – дата документа;
12 – регистрационный номер документа;
13 – ссылка на регистрационный номер и дату документа;
14 – место составления или издания документа;
15 – адресат;
16 – гриф утверждения документа;
17 – резолюция;
18 – заголовок к тексту;
19 – отметка о контроле;
20 – текст документа;
21 – отметка о наличии приложения;
22 – подпись;
23 – гриф согласования документа;
24 – визы согласования документа;
25 – оттиск печати;
26 – отметка о заверении копии;
27 – отметка об исполнителе;
28 – отметка об исполнении документа и направлении его в дело;
29 – отметка о поступлении документа в организацию;
30 – идентификатор электронной копии документа.
5 5 2 4 1 3
100 312 0 312 500
Объяснение:
n участников олимпиады получили уникальные номера от 1 до n. В результате решения задач на олимпиаде каждый участник получил некоторое количество (целое число от 0 до 600). Известно, кто сколько набрал.
Перечислите участников олимпиады в порядке невозрастания набранных ими .
Входные данные
В первой строке содержится число n (0 ≤ n ≤ 101). Далее записаны n чисел - количество набранных участниками (первое число - это , набранные участником номер 1, второе - участником номер 2 и т.д.).
Выходные данные
Вывести n чисел - номера участников в порядке невозрастания набранных ими (участники, набравшие одинаковое количество балов должны выводится в порядке неубывания их номеров).
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var b:=a.Where(x->(x mod 5=0) and (x mod 3 <>0)).ToArray;
b.Println
end.
Пример
n= 15
5 37 -49 -50 -14 34 9 11 -9 -43 -27 8 -19 -40 15
5 -50 -40