Аскольд
5 год назад
ПаскальДана строка. Известно, что она содержит ровно две одинаковые буквы. Найдите эти буквы. Гарантируется, что повторяются буквы только одного вида.
ОТВЕТЫ
Pope Tyrone
Nov 7, 2020
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.
144
Смежные вопросы:
