Найти в строке указанную подстроку и заменить ее на новую. ее на новую. Строку, ее подстроку для замены и новую подстроку вводит пользователь.

Question

Информатика

Тема

23 августа, 13:52

Найти в строке указанную подстроку и заменить ее на новую. ее на новую. Строку, ее подстроку для замены и новую подстроку вводит пользователь.

+3

Ответы (1)

Знаете ответ?

Галюха · Answer 1

Var s, ss, s2:string;

i:longint;

Begin

write ('String: ') ;

readln (s) ;

write ('Substring: ') ;

readln (ss) ;

Write ('Replace with: ') ;

readln (s2) ;

i:=pos (ss, s) ;

delete (s, i, length (ss)) ;

insert (s2, s, i) ;

writeln (s) ;

end.