В введенной строке символов найти пары состоящие из одинаковых символов и заменить второй из них цифрой 1

@mashkama · Регистрация: 26.10.2012

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

@pryda · 07.11.2012, 20:22

Pascal

begin
writeln('Введите строку');
readln(s);
i:=1; k:=i;
while i<=Length(s)-1 do
begin
  if s[i]=s[i+1] then
  begin
    s[i+1]:='1';
    i:=i+2;
  end
  else Inc(i);
end;
writeln('Pезультат: ',s);
readln;
end.

@mashkama 1 / 1 / 0 Регистрация: 26.10.2012 Сообщений: 61
		1
	В введенной строке символов найти пары состоящие из одинаковых символов и заменить второй из них цифрой 1 07.11.2012, 20:08. Показов 2167. Ответов 1 Метки нет (Все метки) В введенной строке символов найти пары состоящие из одинаковых символов и заменить второй из них цифрой 1 0

	07.11.2012, 20:22

В введенной строке символов найти пары состоящие из одинаковых символов и заменить второй из них цифрой 1

Решение