ответ:1.
Выдача чужого произведения за своё или незаконное опубликование чужого произведения под своим именем, литературное воровство
2.
А́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях.
3.
1) литературные произведения;
2) драматические и музыкально-драматические произведения;
3) сценарные произведения;
4) произведения хореографии и пантомимы;
5) музыкальные произведения с текстом или без текста;
6) аудиовизуальные произведения;
7) произведения живописи, скульптуры, графики и другие произведения изобразительного искусства;
8) произведения прикладного искусства;
9) произведения архитектуры, градостроительства, дизайна и садово-паркового искусства;
10) фотографические произведения и произведения, полученные , аналогичными фотографии;
11) карты, планы, эскизы, иллюстрации и трехмерные произведения, относящиеся к географии, топографии и к другим наукам;
12) программы для ЭВМ;
13) иные произведения.
Объяснение:
var
n, Num, i, j, t: integer;
Count: array[1..12] of integer;
Names: array[1..12] of integer;
begin
for i := 1 to 12 do
begin
Count[i] := 0;
Names[i] := i;
end;
ReadLn(N); { Считываем количество запросов}
for i := 1 to N do
begin
ReadLn(t); {считали очередной запрос}
Count[t] := Count[t] + 1;
end;
{Сортируем массивы Names и Count в порядке убывания значений массива Count}
for i := 12 downto 2 do
for j := 2 to i do
if Count[j - 1] < Count[j] then
begin
t := Count[j];
Count[j] := Count[j - 1];
Count[j - 1] := t;
t := Names[j];
Names[j] := Names[j - 1];
Names[j - 1] := t;
end;
for i := 12 downto 1 do
if Count[i] > 0 then
WriteLn(Names[i], ' ', Count[i]);
end.
Объяснение:
Program Avto;
Var
v1, v2, v3, v4, v5: Real;
vSred: Real;
Begin
Write('введите скорости на 5 участках ');
ReadLn(v1, v2, v3, v4, v5);
vSred := 5 / (1/v1 + 1/v2 + 1/v3 + 1/v4 + 1/v5);
WriteLn('средняя скорость = ', vSred);
ReadLn;
End.