Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ

@printer · Регистрация: 20.11.2013

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

Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ. Тема:строки.

@FedorBoom · 15.03.2014, 23:51

Pascal

var s, slog: string;  sym: char;
    i: integer;
 begin
  write('Ââåäèòå ñòðîêó --> '); readln(s);
  write('Ââåäèòå èñêîìûé ñëîã --> '); readln(slog);
  write('Ââåäèòå íóæíûé ñèìâîë --> '); readln(sym);
 
  i:= length(s);
  while i<>0 do begin
    i:=i-1;
    if (s[i]=slog[1]) and (s[i+1]=slog[2]) then begin
      delete(s,i,2);
      insert(sym,s,i);
     end;
   end;
 
  writeln(s);
  readln;
 end.

@printer 0 / 0 / 0 Регистрация: 20.11.2013 Сообщений: 26
		1
	Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ 15.03.2014, 19:23. Показов 1960. Ответов 1 Метки нет (Все метки) Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ. Тема:строки. 0

	15.03.2014, 23:51

Дан текст, заменить все вхождения заданного слога (сочетания 2-х символов) на заданный символ

Решение