1)В чем состоит различие между лицензионными, условно-бесплатными и бесплатными программами?

2) Как можно зафиксировать свое авторское право на программный продукт?

3) Какие используются идентификации личности при предоставлении доступа к информации?

·4)Почему компьютерное пиратство наносит ущерб обществу?

·5) Какие существуют программные и аппаратные защиты информации?

· 6)Чем отличается копирование файлов от инсталляции программ?

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно

uses graphabc;

type fun = function (x: real): real;

function f(x: real): real; begin f: =0.5*x*cos(2*x); end;

// l (logical) - логические координаты// s (screen) - координатыprocedure drawgraph(x1,x2,y1,y2: real; f: fun); var xl,xl0,wl,yl,yl0,hl: real; xs0,ws,ys0,hs: integer; function ltosx(xl: real): integer; begin result: =round(ws/wl*(xl-xl0)+xs0); end; function ltosy(yl: real): integer; begin result: =round(hs/hl*(yl-yl0)+ys0); end; function stolx(xs: integer): real; begin result: =wl/ws*(xs-xs0)+xl0; end; var xi: integer; begin // drawgraph xs0: =0; ys0: =windowheight; ws: =windowwidth; hs: =windowheight; xl0: =x1; yl0: =y1; wl: =x2-x1; hl: =-(y2-y1); moveto(xs0,ltosy(f(stolx(; for xi: =xs0+1 to xs0+ws do lineto(xi,ltosy(f(stolx(; end;

begin // program setwindowcaption('график функции'); drawgraph(-12,12,-23,23,f); end.

program sfetafor1; uses graphabc; beginsetwindowsize(640,480); clearwindow(clwhite); setpencolor(clblack); setpenwidth(3); rectangle(200,200,300,400); floodfill(250,300,clltgray); circle(250,230,25); circle(250,290,25); circle(250,350,25); floodfill(250,235,clred); floodfill(250,285,clyellow); floodfill(250,355,clgreen); line(250,200,250,150); line(250,150,100,150); setfontsize(14); setfontcolor(clred); textout(100,125,'красный свет-дороги нет'); end.

var digits: set of '0'..'9'; st: string; i,s,t,t1: integer; begin  read(st)  for i : = 1 to length(st) do begin      if not (st[i] in digits) then begin          s: =s+t;           t: =0;       end      else begin           t1: =integer(st[i]);           t: =t*10+t1;       end;   end;   writeln('s=',s)end.

на руби куда легчеst=gets.to_sst=st.gsub(/\d+/,',')a=(st.split(","))s=0a.each_index do |i|      a[i]=a[i].to_i      s+=a[i]endp ap s