В10а учится 29 человек. оказалось, что в инстаграм зарегистрировано 14 человек, а вк - 15, еще 14 есть в «одноклассниках». одновременно в «одноклассниках» и вк есть аккаунт у 7 человек, в инстаграме и «одноклассниках» у 9 человек, а в вк и инстаграм - у 6 человек. пятеро зарегистрированы во всех сетях, но остались и те, кого нет ни в какой социальной сети. теперь выбери верные и ложные утверждения.

{1 шаг - создать типизированный файл! } program ex; uses  crt; const name='baze';             type                     stfio = string[30];                     adress=string[50];                     recbook = record                                               fio : stfio; {ф.и.о}                                               adress: adress; {адрес}                                               num_tel: string[20]{телефон};                                           end;                     mas= array[1..30] of recbook;               var                     bookfile : file of recbook;                             work : recbook;                               vid : char;                     end_menu : boolean;                             a: mas; procedure sort_buble(var a: mas; count: integer); var c: mas;       last,current: integer; begin         for last : = count downto 2 do             for current : = 1 to last-1 do             begin                 if a[current].fio > a[current+1].fio then         begin             c[1]: =a[current];             a[current]: =a[current+1];             a[current+1]: =c[1];         end;             end; end; procedure outputrec_z; begin   with work do     begin         gotoxy(2,2);   write(' фио ');         gotoxy(19,2);   write(' tel  ');         gotoxy(35,2);   write(' адрес ');         gotoxy(2,4);     write(fio);         gotoxy(19,4);   write(num_tel);         gotoxy(35,4);   writeln(adress);     end;     readkey;     clrscr; end; procedure find; var     findst: string;     end_menu2: boolean; begin     write(' введите строку поиска(fio) ');     readln(findst);     textcolor(15);     clrscr;     assign(bookfile,name);     {$i-}     reset(bookfile);     {$i+}     if ioresult = 0 then                   begin                             seek(bookfile, 0);                             while (not eof(bookfile)) do begin         clrscr;         read(bookfile,work);         if pos(findst,work.fio)< > 0 then             outputrec_z; end;   writeln('больше записей удовлетворяющих критерию поиска не обнаружено');           readkey;                   end end; var f: text; procedure find_b; var     i,j: integer; begin     textcolor(15);     clrscr;     assign(bookfile,name);     {$i-}    reset(bookfile);     {$i+}     if ioresult = 0 then                   begin                 i: =0; {кол-во записей тел которых начинается с 41}                             seek(bookfile, 0);                             while (not eof(bookfile)) do                             begin                                       read(bookfile,work);                         if (pos('41',work.num_tel)=1) then         begin             i: =i+1;             a[i]: =work;         end;         end;         sort_buble(a, i);         assign(f,'res.txt');         rewrite(f);         for j: =1 to i do         writeln(f,a[j].fio,' ', a[i].num_tel: 7);         close(f);   end; end; {****************************************************************************}               procedure addrec;                                   begin                                             clrscr;                                             write(' номер добавляемой записи ');                                             textcolor(15);                                             write(filepos(bookfile)+1);                                             with work do                                                       begin                                                       writeln;                                                                 write(' фио ');                                                                 readln(fio);                                                                 write(' телефон ');                                                                 readln(num_tel);                                                                 write(' адрес ');                                                                 readln(adress);                                                                 write(bookfile,work);                                                       end;                                   end; {****************************************************************************}               procedure create_book_phone;                                   var                                         ind, count : integer;                                   begin                                             clrscr;                                             textcolor(15);                                             assign(bookfile,name);                                             rewrite(bookfile);                                             write(' новый файл ');                                             writeln(name);                                             write(' введите количество записей в файле ');                                             readln(count);                                             for ind : = 1 to count do addrec;                                             writeln;                                             writeln(' создание завершено');                                             writeln;                                             writeln(' количество записей в файле ');                                             writeln(filesize(bookfile));                                             close(bookfile);                                   end; {****************************************************************************}               procedure outputrec;                                   begin                                             clrscr;                                             read(bookfile,work);                                             with work do                                                       begin                                                                 gotoxy(10,2);   write('фио ');                                                                 gotoxy(34,2);   write('телефон  ');                                                                 gotoxy(50,2);   write('адрес ');                                                                                                                                 gotoxy(2,4);     write(fio);                                                                 gotoxy(35,4);   write(num_tel);                                                                 gotoxy(50,4);   writeln(adress);                                                                 readkey;                                                                 clrscr;                                                         end;                                   end; {****************************************************************************}               procedure outputallrec;                                   begin                                             clrscr;                                             assign(bookfile,name);                                             {$i-} reset(bookfile); {$i+}                                             if ioresult = 0 then                                                   begin                                                             seek(bookfile, 0);                                                             while (not eof(bookfile)) do                                                               outputrec;                                                   end                                             end; {****************************************************************************} begin         clrscr;         textbackground(0);         vid : = ' ';         end_menu : = false;         repeat           textcolor(15);           write(' текущий файл: ',chr(13),name);                     writeln;                     writeln;                     writeln('*********************************************************************');                     writeln;                     writeln('меню: ');                     writeln('  2  cоздать новый файл');                     writeln('  3  просмотреть все ');                     writeln('  4  найти номер телефона сотрудника по его фамилии');                     writeln('  5  переписать в алф. порядке в текстовый файл информацию о сотрудниках первые цифры телефона 41');                     writeln('  8  bыход');                     readln(vid);                     case vid of                             '2' : create_book_phone;                             '3' : outputallrec;                             '4' : find;                             '5' : find_b;                             '8' : end_menu : = true;                     end;                     clrscr;         until end_menu; end.

1.все файлы сохраняются в формате wav. 2.  для того чтобы вставить в документ microsoft word звуковой файл, необходимо иметь программу, позволяющую работать со звуком, например «звукозапись» — стандартное приложение microsoft windows, позволяющее записывать, редактировать и воспроизводить звуковые файлы. кроме того, на компьютере должна быть установлена звуковая плата. чтобы просмотреть дополнительные сведения о программе «звукозапись» , нажмите кнопку пуск, выделите пункты программы, стандартные, развлечения, выберите команду звукозапись и прочтите файл справки. 1.в документе щелкните место вставки звукового файла 2.выполните одно из следующих действий: -вставка существующего звукового файла 1.в меню вставка выберите команду объект, а затем откройте вкладку создание из файла. 2.нажмите кнопку обзор, а затем найдите нужный звуковой файл. 3.чтобы вставить звуковой файл в виде связанного объекта (связанный объект. объект, созданный в файле-источнике и вставленный в файл назначения с поддержанием связи между этими двумя файлами. связанный объект в файле назначения может быть обновлен при обновлении файла-источника.) , установите флажок связать с файлом. 4.чтобы отобразить файл в виде значка, установите флажок в виде значка. для вставки нового звукового файла необходимо наличие устройства для ввода звука, например микрофона. 1. в меню вставка выберите команду объект, а затем откройте вкладку создание. 2. в списке тип объекта выберите тип, соответствующий используемому приложению для работы со звуком. например, если используется программа звукозапись, выберите тип «звукозапись» . 3. запишите нужный звук в соответствующей программе.