Задать вопрос Регистрация
Помочь другим

  • Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой

Ответы 1

  • var s:string;start,finish,i:integer;Begin  {read(s);}  s:='I aha, go home i';  start:=1;  for i := 2 to length(s)+1 do begin    if (s[i] in [' ',',','.']) or (i=length(s)) then begin      finish:=i-1;      if s[start]=s[finish] then writeln(copy(s,start, finish-start+1));      start:=i+1;    end;  end;End.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years