Pascal Написать программу проверяющую есть ли в заданном слове две подряд идущие одинаковые буквы

Ответ:

Объяснение:

readln(arr);

for i := 0 to Length(arr) do

if (arr[i] = arr[i+1]) then writeln("Есть две буквы подряд");