Определить, имеются ли в строке два соседствующих одинаковых символа

@tupishka · Регистрация: 01.05.2011

Author24 — интернет-сервис помощи студентам

определить,имеются ли в строке два соседствующих одинаковых символа

@Small Lamer · 18.05.2011, 21:46

Pascal

var i: longint;
    s:string;
begin
readln(s);
for i:=1 to length(s)-1 do
  if s[i]=s[i+1] then begin write('Yes');halt;end;
  write('No');
End.

@lamed · 18.05.2011, 21:48

Pascal

{ определить,имеются ли в строке два соседствующих одинаковых символа }
var
  i, len: integer;
  s: string;
begin
  readln(s);
  i:= 1;
  len := length(s);
  while (i<=len-1) and (s[i]<>s[i+1]) do
    i:=i+1;
  if i<=len-1 then
    writeln('есть')
  else
    writeln('нет');
  readln;
end.

Определить, имеются ли в строке два соседствующих одинаковых символа

Решение

Решение

@tupishka 0 / 0 / 0 Регистрация: 01.05.2011 Сообщений: 23
		1
	Определить, имеются ли в строке два соседствующих одинаковых символа 18.05.2011, 21:41. Показов 6077. Ответов 2 Метки нет (Все метки) определить,имеются ли в строке два соседствующих одинаковых символа 0

	18.05.2011, 21:48