Предмет: Информатика,
автор: ielizaveta102005
Паскаль
Дана строка. Известно, что она содержит ровно две одинаковые буквы. Найдите эти буквы. Гарантируется, что повторяются буквы только одного вида.
Ответы
Автор ответа:
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
Предмет: Другие предметы,
автор: polinu41
Предмет: Русский язык,
автор: olsolowiewa201
Предмет: Физика,
автор: МилашкаТВ