Даны примеры. сразу написала слово зашифрованное: нимарел - минерал летофон - телефон теперь по этому принципу нужно закодировать эти слова: телевизор. магнитофон. я что-то не могу додуматься, куда вставить последние слоги.

Телевизор - летовизер магнитофон - гамнотофин вроде так

26 заглавных  букв + 26 строчных букв  + 10 цифр + 6 символов = 68 знаков используются в паролях. один такой знак  занимает минимально 7 бит (2^6=64 < 68 < 128=2^7).  но символы кодируют целым числом байт. значит по 1 байту (8 бит) на символ. длина пароля равна 12 символов, которые занимают 12 байт. всего выделено 1080 байт на 40 пользователей, то есть 1080/40 = 27 байт на одного пользователя. из них 12 байт занято под пароль. остается 27-12=15 байт можно использовать для хранения дополнительных сведений о каждом пользователе

Var   s,w: string;   i,j,n,p,k,gmax: integer;   fbreak: boolean; { флажок для прерывания циклов } begin   writeln('введите текст, разделяя слова пробелами');   readln(s);   s: =lowercase(s);   n: =length(s); p: =1; fbreak: =false; gmax: =0;   while (not fbreak) do { перебор всех символов в строке }   begin       {ищем первый непробельный символ - начало слова }       fbreak: =false;       while ((p< =n) and (not fbreak)) do           if (p=n) or (s[p]< > ' ') then fbreak: =true           else inc(p);       { ищем первый пробельный символ - конец слова }       if p< n then begin           i: =p; inc(p); fbreak: =false;           while (p< =n) and (not fbreak) do begin               if (p=n) or (s[p]=' ') then fbreak: =true               else inc(p)           end;           { теперь слово находится между позициями i и p }           k: =0;           for j: =i to p do               if s[j] in ['а','е','ё','и','о','у','ы','э','ю','я'] then inc(k);           if gmax< k then begin gmax: =k; w: =copy(s,i,p-i) end;           i: =p; p: =p+1       end       else p: =p+1;       fbreak: =(p> n)   end;   if gmax> 0 then writeln('в слове "',w,'" максимум гласных, равный ',gmax)   else writeln('во введенной строке гласных букв не найдено') end. тестовое решение: введите текст, разделяя слова пробелами в слове три буквы е подряд! в слове "" максимум гласных, равный 5