Плагиа́т — умышленно совершаемое физическим лицом незаконное использование или распоряжение охраняемыми результатами чужого творческого труда, которое сопровождается доведением до других лиц ложных сведений о себе как о действительном авторе.
А́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях.
Однако в литературе есть такое явление: "Пойман - не вор". Или "Этот плагиат - кого надо плагиат".
sum:=0; k:=0; writeln('Введите непустую последовательность целых чисел, которая оканчивается нулем:'); read(a); while a <> 0 do begin if a>x then sum:=sum+a; if a mod 2 = 0 then k:=k+1; read(a); end;
writeln('Сумма всех чисел последовательности, больших числа X: ',sum); writeln('Количество всех четных чисел последовательности: ',k); end.
program n2; var a,b,k:integer;
begin writeln('Введите последовательность ненулевых целых чисел, которая оканчивается нулем:'); read(a); while a<>0 do begin read(b); if a*b<0 then k:=k+1; a:=b; end;
writeln(k,' раз(а) в введенной последовательности меняется знак'); end.
Плагиа́т — умышленно совершаемое физическим лицом незаконное использование или распоряжение охраняемыми результатами чужого творческого труда, которое сопровождается доведением до других лиц ложных сведений о себе как о действительном авторе.
А́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях.
Однако в литературе есть такое явление: "Пойман - не вор". Или "Этот плагиат - кого надо плагиат".
var a,k,sum,x:integer;
begin
write('Введите число X: ');
readln(x);
sum:=0; k:=0;
writeln('Введите непустую последовательность целых чисел, которая оканчивается нулем:');
read(a);
while a <> 0 do
begin
if a>x then sum:=sum+a;
if a mod 2 = 0 then k:=k+1;
read(a);
end;
writeln('Сумма всех чисел последовательности, больших числа X: ',sum);
writeln('Количество всех четных чисел последовательности: ',k);
end.
program n2;
var a,b,k:integer;
begin
writeln('Введите последовательность ненулевых целых чисел, которая оканчивается нулем:');
read(a);
while a<>0 do
begin
read(b);
if a*b<0 then k:=k+1;
a:=b;
end;
writeln(k,' раз(а) в введенной последовательности меняется знак');
end.