Что можно отнести к достоинствам векторной графики по сравнению с растровой: 1 малый объем графических файлов 2 фотографическое качество изображения 3 возможность просмотра изображения на экране графического дисплея 4 высокое качество печати изображения на принтере 5 возможность поточечного редактирования изображения

1)  малый объем графических файлов 4) высокое качество печати изображения на принтере

Var a: array[1..10000] of integer; i,nod,nok,k,n: integer; begin write('n = '); readln(n); write('введите числа (',n,' шт.): '); for i: = 1 to n do       read(a[i]); {поиск нок} nok: =abs(a[1]); for i: = 2 to n do       if abs(a[i])< nok then nok: =abs(a[i]); if nok = 0 then nok: =1; repeat k: =0; for i: = 1 to n do       if a[i] mod nok = 0 then k: =k+1; nok: =nok-1; until k=n; writeln('nok = ',nok+1); {поиск нод} nod: =a[1]; for i: = 2 to n do       if abs(a[i])> nod then nod: =a[i]; repeat k: =0; for i: = 1 to n do       if nod mod a[i] = 0 then k: =k+1; nod: =nod+1; until k=n; writeln('nod = ',nod-1) end.

Var a,b,k,n,m: integer; begin write('введите целое число: '); readln(a); b: =a; n: =0; k: =0; while b< > 0 do     begin     n: =n+1;     b: =b div 10;     end; m: =a mod 10; for n: = 1 to n-1 do       begin       a: =a div 10;       if (m > a mod 10) then             begin             k: =k+1;             m: =a mod 10;             end;       end; if k = n then write('верно') else write('не верно') end. var a: integer; begin write('введите целое число: '); readln(a); while a< > 0 do     begin     write(a mod 10);     a: =a div 10     end; end.