8
Объяснение:
Чтобы составить слово, одинаково читающееся слева направо и справа налево, нужно чётное количество одинаковых букв.
Посчитав, сколько раз встречается в фразе одна и та же буква, находим:
1) буквы J, I, N, G повторяются 3 раза;
2) буква L повторяется 9 раз;
3) буквы T, H, W, Y встречаются только один раз.
Мы должны убрать по одному кубику с этими буквами, т. е. убираем 9 кубиков.
Всего было 37 кубиков, значит, осталось 28.
28 делится на 2, поэтому мы можем вставить в середину слова любой один кубик (как "л" в слове шалаш), т.е. возвращаем один кубик из убранных.
var n,n1,n2,n3:integer;
function srostit(a,b,c:integer):integer;
begin
srostit := a*100 + b*10 + c;
end;
Begin
read(n);
n1:=n div 100;
n2:=n mod 100 div 10;
n3:=n mod 10;
writeln(srostit(n1,n2,n3));
writeln(srostit(n1,n3,n2));
writeln(srostit(n2,n1,n3));
writeln(srostit(n2,n3,n1));
writeln(srostit(n3,n1,n2));
writeln(srostit(n3,n2,n1));
End.