8
Объяснение:
Чтобы составить слово, одинаково читающееся слева направо и справа налево, нужно чётное количество одинаковых букв.
Посчитав, сколько раз встречается в фразе одна и та же буква, находим:
1) буквы J, I, N, G повторяются 3 раза;
2) буква L повторяется 9 раз;
3) буквы T, H, W, Y встречаются только один раз.
Мы должны убрать по одному кубику с этими буквами, т. е. убираем 9 кубиков.
Всего было 37 кубиков, значит, осталось 28.
28 делится на 2, поэтому мы можем вставить в середину слова любой один кубик (как "л" в слове шалаш), т.е. возвращаем один кубик из убранных.
8
Объяснение:
Чтобы составить слово, одинаково читающееся слева направо и справа налево, нужно чётное количество одинаковых букв.
Посчитав, сколько раз встречается в фразе одна и та же буква, находим:
1) буквы J, I, N, G повторяются 3 раза;
2) буква L повторяется 9 раз;
3) буквы T, H, W, Y встречаются только один раз.
Мы должны убрать по одному кубику с этими буквами, т. е. убираем 9 кубиков.
Всего было 37 кубиков, значит, осталось 28.
28 делится на 2, поэтому мы можем вставить в середину слова любой один кубик (как "л" в слове шалаш), т.е. возвращаем один кубик из убранных.
var a:array [1..10] of integer;
x,k:integer;
begin
k:=0;
for x:=1 to 10 do
begin
a[x]:=random(3);
writeln('a[',x,']:',a[x]);
if a[x]=1 then inc(k);
end;
writeln('Количество элементов, равных 1: ',k);
end.