Дано слово. можно только менять местами соседние буквы. нужно получить из данного слова палиндром, используя минимальное число обменов.пример: из слова abbyy палиндром можно получить за четыре перестановки: abbyy babyy bayby byaby ybabyвывод: 4нужен код на pascal

24 серпня виповнилося б 80 років від дня народження видатного українського ученого та організатора науки, засновника і першого директора Інституту кібернетики академіка Віктора Михайловича Глушкова. Його діяльність як ученого справила величезний вплив на розвиток кібернетики та її застосування в різних галузях науки і суспільної практики. Його організаційна діяльність сприяла підготовці кадрів з кібернетики та обчислювальної техніки, розвитку промисловості електронного машинобудування, створенню інфраструктури для здійснення програми інформатизації.

В Інституті кібернетики АН України Віктор Михайлович створив унікальний за своїм потенціалом колектив. У 1959 р. в Обчислювальному центрі було завершено роботу по створенню ЕОМ «Київ». Саме на цій машині, окрім ефективного розв’язання обчислювальних задач, проводилися перші експерименти з автоматизованого проектування електронних схем, розв’язувалися задачі з розпізнавання зорових образів, діяла перша база даних.

Объяснение:

1) var a,b: integer ;

begin

readln(a);

b:=(a mod 10)+(a div 10);

if ((b mod 7=0) and ((a div 10) mod 2 =0)) then writeln ('верно') else writeln ('не верно')  

end.

2)var a,b,i: integer;

begin

 readln(a);

 for i:=1 to 3 do

   if a mod 10 > 3 then begin  b:=b+1; a:=a div 10; end;

   if b=3 then writeln ('верно') else writeln ('не верно')

end.

3)var a,b,c,d,i: integer;

begin

 readln (a);

 b:= b+a mod 10;

d:= a div 10000;

b12:=b+d mod 10;

a:=a div 10;

for i:=1 to 3 do  begin c:=c+a mod 10; a:=a div 10 end;

if c mod b =0 then writeln ('верно') else writeln ('не верно') ;

end.