Определить порядковые номера первой пары одинаковых соседних символов.

@Ольга М. · Регистрация: 31.03.2010

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

Люди плиз помогите на паскале решить задачку, срочно нужно, я на госах

Дана строка. Определить порядковые номера первой пары одинаковых соседних символов. Если таких символов нет то должно быть напечатано соответствующее сообщение

@Puporev · 31.03.2010, 10:27

Pascal

uses crt;
var s:string;
    i,k:byte;
begin
clrscr;
writeln('Введите строку символов:');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]=s[i-1] then
 begin
  write('номера первых одинаковых соседних символов ',i-1,' ',i);
  k:=1;
  break;
 end;
if k=0 then write('В строке нет одинаковых соседних символов');
readln
end.

@Ольга М. · 31.03.2010, 10:35 **[ТС]**

огромное приогромное спасибо

@Ольга М. 0 / 0 / 0 Регистрация: 31.03.2010 Сообщений: 3
		1
	Определить порядковые номера первой пары одинаковых соседних символов. 31.03.2010, 10:03. Показов 2514. Ответов 2 Метки нет (Все метки) Люди плиз помогите на паскале решить задачку, срочно нужно, я на госах Дана строка. Определить порядковые номера первой пары одинаковых соседних символов. Если таких символов нет то должно быть напечатано соответствующее сообщение 0

@Ольга М. 0 / 0 / 0 Регистрация: 31.03.2010 Сообщений: 3
	31.03.2010, 10:35 [ТС]	3
	огромное приогромное спасибо 0

Определить порядковые номера первой пары одинаковых соседних символов.

Решение