Флеш-накопитель относится к а) устройствам ввода б) устройствам вывода с) устройствам хранения д) сетевым устройствам для вывода объемного макета применяется а) лазерный принтер б) 3д принтер с) струйный принтер д) матричный принтер драйвер относится к а) системному програмному обеспечению б) прикладному программному обеспечению с) системам программирования д) утилитам

1.c
2б
3.a
ответы .. ...

Program test;
var a,b,c,d,e,f,g,h,j,k,l,s: integer;
begin
s:=0;
writeln ('Тест "Приятно ли с вами общаться?" Если человек общителен, то это еще не значит, что с ним приятно разговаривать. Есть люди, которые своей общительностью надоедают каждому буквально с первых минут разговора. Посмотрите внимательно, разве мало вокруг таких людей? А вы приятный собеседник?');
writeln ('1) Вы любите больше слушать, чем говорить?');
writeln ('1 да, 2 нет');
readln (a);
if a=1 then s:=s+1 else s:=s+0;
writeln ('2) Вы всегда можете найти тему для разговора, даже с незнакомым человеком?');
writeln ('1 да, 2 нет');
readln (b);
if b=1 then s:=s+1 else s:=s+0;
writeln ('3) Вы всегда внимательно слушаете собеседника? ');
writeln ('1 да, 2 нет');
readln (c);
if c=1 then s:=s+1 then s:=s+0;
writeln ('4) Любите ли вы давать советы?');
writeln ('1 да, 2 нет');
readln (d);
if d=1 then s:=s+1 else s:=s+0;
writeln ('5) Если тема разговора вам не интересна, станете ли показывать это собеседнику?');
writeln ('1 да, 2 нет');
readln (e);
if e=1 then s:=s+1 else s:=s+0;
writeln ('6) Раздражаетесь, когда вас не слушают?');
writeln ('1 да, 2 нет');
readln (f);
if f=1 then s:=s+1 else s:=s+0;
writeln ('7) У вас есть собственное мнение по любому вопросу?');
writeln ('1 да, 2 нет');
readln (g);
if g=1 then s:=s+1 else s:=s+0;
writeln ('8) Если тема разговора вам не знакома, станете ли вы ее развивать?');
writeln ('1 да, 2 нет');
readln (h);
if g=h then s:=s+1 else s:=s+0;
writeln ('9) Вы любите быть центром внимания?');
writeln ('1 да, 2 нет');
readln (j);
if j=1 then s:=s+1 else s:=s+0;
writeln ('10) Есть ли хотя бы три предмета, по которым вы обладаете достаточно прочными знаниями?');
writeln ('1 да, 2 нет');
readln (k);
if k=1 then s:=s+1 else s:=s+0;
writeln ('11) Вы хороший оратор?');
writeln ('1 да, 2 нет');
readln (l);
if l=1 then s:=s+1 else s:=s+0;
writeln ('Ваши - ', s);
writeln ('1- : Трудно сказать, то ли вы молчун, из которого не вытянешь ни слова, то ли настолько общительны, что вас стараются избегать, но факт остается фактом: общаться с вами далеко не всегда приятно, а порой даже тяжело. Вам бы следовало над этим задуматься. 4- : Вы, может быть, и не слишком общительный человек, но почти всегда внимательный и приятный собеседник. Вы можете быть и весьма рассеянным, когда не в духе, но не требуете от окружающих в такие минуты особого внимания к вашей персоне.10- : Вы, наверное, один из самых приятных собеседников, друзья не могут без вас обойтись');
end.

Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 const n=100; type arr=array[1..n] of integer; var   a:arr;   skv:real;   i,k,l:integer; procedure print(s:string;a:arr;l:integer); var   i:integer; begin   writeln(s);   write('[');   for i:=1 to l-1 do write(a[i],', ');   writeln(a[l],']'); end; procedure sort(var a:arr;l:integer); var   i,j,t:integer; begin   for i:=1 to l-1 do     for j:=i to l do       if a[j]<a[i] then begin         t:=a[j];         a[j]:=a[i];         a[i]:=t;       end; end; begin   repeat     write('Количество элементов массива:');     readln(k);   until (k>0) and (k<101);   write('Введите массив:');   for i:=1 to k do     repeat       write('a[',i,']=');       readln(a[i]);     until (a[i]>-11) and (a[i]<11);   print('Оригинальный массив:',a,k);   l:=0;skv:=0.0;   for i:=1 to k do     if a[i]<0 then begin       a[i]:=sqr(a[i]);       skv:=skv+a[i];       l:=l+1;     end else a[i]:=i;   print('Полученный массив:',a,k);   sort(a,k);   print('отсортированный массив:',a,k);   writeln('Среднее арифметическое квадратов отрицательных чисел:',skv/l:0:4);   readln; end.