1 ЧАСТИ РЕЧИ
Существительные - Глаголы -
письмо съел
мальчик вьет
семья
тетрадь
подъем
2 РАЗДЕЛИТЕЛЬНЫЙ Ъ И Ь ЗНАКИ
ь ъ
Письмо Съел
Мальчик Подъем
Вьет
Семья
Тетрадь
В качестве исходной фразы используйте:
Джинсы порезаны, лето, три полоски на кедах
2. Выполнить вручную шифрование сообщения при шифрующей системы Трисемуса.
В качестве исходной фразы используйте:
Под небом голубым есть город золотой
3. Выполнить вручную шифрование сообщения при лозунгового шифра.
В качестве исходной фразы используйте:
Я шагаю по пpoспектy, по ночномy гоpодy.
В качестве ключа используйте слово «Аквамарин»
4. Выполнить вручную шифрование сообщения при шифра табличной маршрутной перестановки.
В качестве исходной фразы используйте:
Я не знаю, где ошиблись мы в расчетах
5. Выполнить вручную кодирование сообщения методом RLE.
В качестве исходной фразы используйте:
РРппВ12уллл3336
6. Выполнить вручную кодирование сообщения методом RLE.
В качестве исходной фразы используйте:
еВпппВ11уфффуугггддд
7. Выполнить вручную кодирование сообщения методом RLE.
В качестве исходной фразы используйте:
ИВВВ111у
Заранее за ответы!
s,s1,s2,st1,st2:string; i:integer;
mn:set of char; b:boolean;
begin
writeln('Введите текст:');
readln(s);
s:=s+' ';
st1:=''; st2:='';
s1:=''; s2:=''; mn:=[]; b:=false;
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
for i:=1 to length(s) do
if s[i]<>' '
then begin
s1:=s[i]+s1;
s2:=s2+s[i];
if s[i] in mn then b:=true;
mn:=mn+[s[i]];
end
else begin
if s1=s2 then st1:=st1+s1+' ';
if not b then st2:=st2+s2+' ';
s1:=''; s2:=''; mn:=[]; b:=false;
end;
if st1<>''
then writeln('Слова-перевёртыши: ',st1)
else writeln('Слов-перевёртышей нет');
if st2<>''
then writeln('Слова без повторяющихся букв: ',st2)
else writeln('Слов без повторяющихся букв нет');
end.
Пример:
Введите текст:
заказ слово комок пробел след пример огонь текст
Слова-перевёртыши: заказ комок
Слова без повторяющихся букв: пробел след