Ответ:
Объяснение:
readln(arr);
for i := 0 to Length(arr) do
if (arr[i] = arr[i+1]) then writeln("Есть две буквы подряд");
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Объяснение:
readln(arr);
for i := 0 to Length(arr) do
if (arr[i] = arr[i+1]) then writeln("Есть две буквы подряд");