В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
veraveta
veraveta
12.04.2023 18:54 •  Информатика

а) с клавиатуры вводится предложение - строка, в которой есть слова, разделённые пробелом без повторов. выведите слова в порядке уменьшения их длин. б) напишите программу, которая будет кодировать введённое предложение шрифтом цезаря. суть кодировки в том, что каждый символ строки заменяется на символ, отстоящий в алфавите от заданного вправо на три позиции. например, слово 'mama' превратится в 'pepe' (между символами 'm' и 'p' 3 символа). в программе используйте только латинские символы.

Ответ:
daklochkov
daklochkov
04.10.2020 09:56
// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
  var a:=ReadlnString('->').ToWords;
  a.Select((x,i)->(x,x.Length,i)).OrderByDescending(x->x[1]).
    ThenBy(x->x[0]).Select(x->x[0]).Println
end.

Пример
-> Карл у Клары украл кораллы Клара у Карла украла кларнет
кларнет кораллы украла Карла Клара Клары украл Карл у у

// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
  var s1:='';
  var s2:='';
  var s:=ReadlnString('->');
  var p:integer;
  for var i:=1 to s.Length do begin
    p:=pos(s[i],s1);
    if p>0 then s[i]:=s2[p]
    end;
  Writeln(s)
end.

Пример
-> abracadabra
deudfdgdeud
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?