Написать программу, которая каждый встречающийся в строке заданный символ заменяет на заданную последовательность символов, расширяя при этом строку

@KolesoPR · Регистрация: 05.06.2012

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

Написать программу, которая каждый встречающийся в строке заданный символ заменяет на заданную последовательность символов, расширяя при этом строку.

@КонецСвета · 14.06.2012, 00:25

как один из вариантов

Pascal

uses crt;
var s,p: string;
    c: char;
    i: byte;
begin
write('Строка: ');readln(s);
write('Символ: ');readln(c);
write('Последовательность: ');readln(p);
for i:=length(s) downto 1 do
    if s[i]=c then
       begin
       delete(s,i,1);
       insert(p,s,i);
       end;
write('Строка: ',s);
readln;
end.

@KolesoPR 0 / 0 / 0 Регистрация: 05.06.2012 Сообщений: 34
		1
	Написать программу, которая каждый встречающийся в строке заданный символ заменяет на заданную последовательность символов, расширяя при этом строку 14.06.2012, 00:09. Показов 1704. Ответов 1 Метки нет (Все метки) Написать программу, которая каждый встречающийся в строке заданный символ заменяет на заданную последовательность символов, расширяя при этом строку. 0

	14.06.2012, 00:25

Написать программу, которая каждый встречающийся в строке заданный символ заменяет на заданную последовательность символов, расширяя при этом строку

Решение