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

Black219911 Black219911    1   06.11.2020 20:18    3

Ответы
vbrcb vbrcb  06.12.2020 20:19

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика