Паскаль. Дана строка N символов. Вывести все слова с удвоенными буквами

Ответы (1)

Сабах 04.04.2025 5

Var
  n,i:integer;
  s,t:string;
  f:boolean;
begin
readln(s);
n:=length(s);
f:=false;
for i:=2 to n do
begin
t:=t+s[i];
if s[i]=s[i-1] then f:=true;
if (s[i]=' ') or (i=n) then
   begin
   if f then writeln(t);
t:='';
f:=false;
end
end;
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ