Дана последовательность, состоящая из двух цифр? 12. К этой последовательности Незнайка решил применить такой алгоритм: 1) в конце данной последовательности дописать ее зеркальную копию; 2) к цифрам, стоящим на четных местах, считая слева направо, прибавить по 1. Найдите сумму четных цифр, находящихся в последовательности, получившейся после шестикратного применения алгоритма и запишите ее в ответе.

program zz1;

var s:string;

i, k, p:integer;

begin

s:='12'; / / задаем начальное значение последовательности

for k:=1 to 6 do / / организуем шестикратное повторение

begin

for i:=length (s) downto 1 do / / организуем зеркальное отражение последовательности

s:=s+s[i];

for i:=1 to length (s) do / / организуем увеличение числа на единицу, стоящего на четной позиции считая слева направо

if i mod 2 = 0 then s[i]:=chr (ord (s[i]) + 1);

end;

writeln (s); / / выводим полученную последовательность

for i:=1 to length (s) do

if (ord (s[i]) - 48) mod 2 = 0 then p:=p + (ord (s[i]) - 48);

write (' сумма четных цифр последовательности = ', p);

end.