Даны три нечетных числа 4; -7; 3. Результатом является среднее арифметическое данных чисел. ​

Моя триместровая решается

Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляется длина ис- ходной цепочки символов; если она нечётна, то дублируется средний символ цепочки символов, а если чётна, то в середину цепочки добавляется буква А. В полученной цепочке символов каждая буква заменяется буквой, следующей за ней в русском алфавите (А - на Б, Б - на В и т. д., а - на А). Получившая- ся таким образом цепочка является результатом работы алгоритма. Например, если исходной была цепочкот, то результатом рабо- ты алгоритма будет цепочка ЛППУ, если исходной была цепоч- ка ВАНЯ, то результатом работы алгоритма будет цепочка ТГБОА. Дана цепочка символов САН. Какая цепочка символов получится, если к данной цепочке применить описанный алгоритм дважды (т. е. применить алгоритм к данной цепочке, затем к результату вновь при- алфавит: Русский алгоритм)? менить

PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 uses crt; var s,s1:string;     c:char;     i,j,k:byte; begin writeln('Введите строку'); read(s); s1:=s;{сделаем копию строки, если строка не нужна, то можно и не делать} i:=1; while i<length(s1) do  begin   c:=s1[i];{запомним символ}   k:=0;   for j:=length(s1) downto i+1 do{с конца строки ищем такие же}   if s1[j]=c then{если есть}    begin     k:=1;{фиксируем}     delete(s1,j,1);{удаляем}    end;   if k=1 then delete(s1,i,1){если не один, удаляем}   else i:=i+1;{иначе проверяем следующий}  end; writeln('Символы по 1 разу'); if s1='' then write('Таких символов нет') else write(s1); end.