Плагиа́т — умышленно совершаемое физическим лицом незаконное использование или распоряжение охраняемыми результатами чужого творческого труда, которое сопровождается доведением до других лиц ложных сведений о себе как о действительном авторе.
А́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях.
Однако в литературе есть такое явление: "Пойман - не вор". Или "Этот плагиат - кого надо плагиат".
1 program z1; var a,b,c,d, min1, min2, min:real; begin writeln ('Введите 4 числа:'); readln (a,b,c,d); if a<b then min1:=a else min1:=b; if c<d then min2:=c else min2:=d; if min1<min2 then min:=min1 else min:=min2; writeln ('Наименьшее число: ',min); end.
2 program z1; var a,b,c,d,g,k:real; begin writeln ('введите стороны треугольника:'); readln(a,b,c); if a<b then begin k:=a; d:=b; end else begin k:=b; d:=a; if d<c then g:=c else g:=d; if g*g=d*d+k*k then writeln ('треугольник прямоугольный') else writeln('треугольник не прямоугольный'); end.
Плагиа́т — умышленно совершаемое физическим лицом незаконное использование или распоряжение охраняемыми результатами чужого творческого труда, которое сопровождается доведением до других лиц ложных сведений о себе как о действительном авторе.
А́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях.
Однако в литературе есть такое явление: "Пойман - не вор". Или "Этот плагиат - кого надо плагиат".
program z1;
var a,b,c,d, min1, min2, min:real;
begin
writeln ('Введите 4 числа:');
readln (a,b,c,d);
if a<b then
min1:=a
else
min1:=b;
if c<d then
min2:=c
else
min2:=d;
if min1<min2 then
min:=min1
else
min:=min2;
writeln ('Наименьшее число: ',min);
end.
2
program z1;
var a,b,c,d,g,k:real;
begin
writeln ('введите стороны треугольника:');
readln(a,b,c);
if a<b then
begin
k:=a;
d:=b;
end
else
begin
k:=b;
d:=a;
if d<c then
g:=c
else
g:=d;
if g*g=d*d+k*k then
writeln ('треугольник прямоугольный')
else
writeln('треугольник не прямоугольный');
end.