Все слова в этом языке имеют вид aba, где a, b - неодинаковые буквы.
На место a можно поставить букву 31 способом, на место b - 30 cпособами (нельзя ставить букву, которая уже стоит на месте a). По правилу умножения получается не более 31 * 30 = 930 комбинаций.
Предположим, что фальшивая монета легче подлинной.
Разделим монеты на группы по 15 и одну монету отложим в сторону. Взвесим группы по 15. Если весы находятся в равновесии, то фальшивая монета отложена. Если же одна из чаш весов оказалась легче, то фальшивая монета там.
15 монет из легкой чаши снова разделим на 7, 7 и монета в стороне. Повторим взвешивание. Если фальшивая монета не найлена, то из более легкой чаши монетки разделим на 3, 3 и одну.
Повторим взвешивание с лекгой чашей в четвертый раз. 1, 1 и монета в стороне.
Фальшивка найдена не более чем за 4 взвешивания.
//PascalABC.Net 3.2
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger('Кол-во элементов: '));
for var i:=0 to length(a)-1 do if a[i].isodd then a[i]:=sqr(i+1);
a.Println;
a.Println;
end.