Предмет: Информатика, автор: ielizaveta102005

Паскаль
Дана строка. Известно, что она содержит ровно две одинаковые буквы. Найдите эти буквы. Гарантируется, что повторяются буквы только одного вида.

Ответы

Автор ответа: Alpixx
0

var

i: Integer;

inp: String;

begin

readln(inp);

for i := 1 to length(inp)-1 do if inp[i] = inp[i+1] then Write(inp[i], inp[i]);

end.

Похожие вопросы
Предмет: Английский язык, автор: Анастейша0