13. в векторном графическом редакторе изображение формируется из 1) линий 2) объектов 3) прямоугольников 4) пикселей

Ввекторном графическом редакторе изображение формируется из объектов.// точно не пиксели.

Var       d, a, b, c, x1, x2: real; begin       writeln('введите a, b, c');       readln(a, b, c);       d : = b * b - 4 * a * c;             if d > 0 then       begin               x1 : = (-b + sqrt(d)) / (2 * a);               x2 : = (-b - sqrt(d)) / (2 * a);               writeln('x1 = ', x1: 2: 2);               writeln('x2 = ', x2: 2: 2);       end       else if d = 0 then       begin               x1 : = -b / (2 * a);               writeln('x = ', x1: 2: 2);       end       else               writeln('нет действительных корней'); end.

буду по порядку добавлять.

1)

uses crt; var n,s,i: integer; beginclrscr; write('n='); readln(n); s: =0; for i: =1 to n dos: =s+sqr(i); write('s=',s); end.

2)

uses crt; var a: array [1..100] of real; n,i,p,o,l: integer; beginclrscr; write('n='); readln(n); write('a[n]: '); for i: =1 to n dobeginreadln(a[n]); if a[n]> 0 then p: =p+1; if a[n]< 0 then o: =o+1; if a[n]=0 then l: =l+1; end; writeln(l,p,o); end.

3)

uses crt; var a: array [1..100] of real; i,n: integer; beginclrscr; write('n='); readln(n); write('a[n]: '); for i: =1 to n doread(a[i]); for i: =1 to n doif (a[i]=0) then writeln('yes')else writeln('no'); end.