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

Ответ

Автор - DanekPTK

Ответ:

Объяснение:

readln(arr);

for i := 0 to Length(arr) do

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

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.