ответьте на
1. для какого из указанных значений числа x истинно выражение
не((x: 2< 5) и не(x+17> 30) и (x×3< 39)

выберите один ответ
1) 1.13
2) 2.9
3) 3.8
4) 4.12

2. для какого из указанных значений числа x истинно выражение не(x> 2) или (x> 6)
выберите один ответ
1) 1.4
2) 2.2
3) 3.3
4) 4.5

3. для какого из слов истинно высказывание:
(первая буква гласная) и не (последняя буква согласная)?

выберите один ответ:
1. слива
2. банан
3. ананас
4. яблоко

4. для какого имени ложно высказывание:

не (первая буква гласная и последняя буква согласная) или не(третья буква согласная)

выберите один ответ:
a. антон
b. анатолий
c. екатерина
d. дмитрий

5. для какого имени истинно высказывание:

(не (первая буква согласная) или вторая буква согласная) и последняя буква гласная

выберите один ответ:
a. ксения
b. степан
c. мария
d. максим​

procedure TfrmMain.FindFilesOnDisk(Dir : string);

var SR    : TSearchRec;

   Err   : integer;

   i, j  : integer;

   st    : string;

begin

 if (Dir[Length(Dir)] <> '\') then Dir := Dir + '\';

 Err := FindFirst(Dir + '*.*', faAnyFile, SR);

 while Err = 0 do

   begin

     j := 0;

     st := AnsiUpperCase(SR.Name);

     if lbDirs.Items.Count > 0 then //Если в списке есть каталоги

       //Проверить, нет ли среди них

       for i := 0 to lbDirs.Items.Count - 1 do            

         if lbDirs.Items[i] = st then  //найденного

           begin

             j := 1;

             break;

           end;      //if lbDirs.Items[i] = st then

     if j = 0 then

       begin

         if (SR.Name <> '.') and

            (SR.Name <> '..') and

            ((SR.Attr and faDirectory) <> 0) then

           begin

             inc(NumDir);

             DirList.Add(Dir + st);

             frmMain.sbMain.Panels[1].Text := IntToStr(NumDir);

             pbFind.Position := NumDir;

             Application.ProcessMessages;

             FindFilesOnDisk(Dir + SR.Name);

           end;    //if (SR.Name <> '.') and

       end;        //if j = 0 then

     Err := FindNext(SR);

   end;

end;

Объяснение:

Flash-память представляет собой микросхему, помещенную в миниатюрный плоский корпус. Для считывания или записи информации карта памяти вставляется в специальные накопители, встроенные в мобильные устройства или подключаемые к компьютеру через USB-порт. Информационная емкость карт памяти может достигать 512 Мбайт.К недостаткам flash-памяти следует отнести то, что не существует единого стандарта и различные производители изготавливают несовместимые друг с другом по размерам и электрическим параметрам карты памяти.