Придумайте предложение, состоящее из 4-5 слов. Используя функцию шифрования y=E(x)=(3x+4)(mod 32) , где х – порядковый номер буквы алфавита (х изменяется от 0 до 31), зашифруйте придуманную Вами фразу.
Указание. Процесс шифрования представьте в файле Excel в следующем виде: 1-й столбец – алфавит от А до Я без буквы Ё; 2-й столбец – соответствующие буквам алфавита числа от 0 до 31 (т.е. значения х); 3-й столбец – значения выражения 3х+4; 4-й столбец – значения функции Е(х) (используйте математическую функцию Excel ОСТАТ); 5-й столбец – шифруемая фраза; 6-й столбец – числовые коды букв шифруемой фразы из 4-го столбца; 7-й столбец – буквы исходного алфавита, соответствующие числовым кодам 6-го столбца.

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;

Объяснение:

ответ:Binary coding — 0010101101010010010101110100101

00101101101100010000101000100110

00101100001001101010100100101011

101010000

Informatica — 0011001001010111010011110101100

00101101101010110010010100101110

1010100100100110001001010

Kazakhstan — 0011010001001010011000110100101

00101010001010001010111000101110

10100101001010111

Rykhani jangyry — 0011101101100010010101000101000

10100101001010111010100100001010

00101001101001010010101110101000

00110001001011011011000100000111

00001110000101100010010110101101

10000111000011011001011110000111

00001110000101110

Объяснение: