Как бороться с плагиатом? как определить, что работа выполнена самостоятельно с творческим подходом. при использовании фрагментов текста из чужой работы можно поступить следующим образом: подходящее слово или словосочетание)- пересказать позаимствованный текст своими словами со ссылкой на автора; подходящее слово или словосочетание)- заключить текст в кавычки с написанием авторов использованных источников. никто не может присвоить себе авторство произведения и указать себя вместо автора.

1) var a,b: integer; s: real;   begin  read(a,b);   writeln('площадь равна= ', (a*b)/2);   end.2)  var s,n: integer;   sr: real;   begin    read(s,n);     writeln('средняя загруженность на человека= ', s/n: 1: 2);     end.3)var x,y: integer; begin  read(x,y);   writeln('сумма=', x+y);   writeln('разность=', x-y);   writeln('произведение=', x*y);     writeln('частное=', x div  y);     end.

Program al; var a,b: integer; s: real; begin writeln('a='); readln(a); writeln('b='); readln(b); s: =(a*b)/2; writeln('s=',s); readln; end.program al; var x,y,s,r1,r2,p: integer; c1,c2: real; begin writeln('x='); readln(x); writeln('y='); readln(y); s: =x+y; p: =x*y;   r1: =x-y;   r2: =y-x; c1: =x/y; c2: =y/x; writeln('s=',s,' p=',p,' r1=',r1,' r2=',r2,' c1=',c1,' c2=',c2); readln; end. program al; var s,n: integer; begin writeln('s'); readln(s); writeln('n'); readln(n); writeln('sredniaia zagrujennosti celoveka=',s/n,' ciasov'); readln; end.!