Написать функцию замены в данной строке S подстроки S1 на подстроку S2
Категория: Delphi/Pascal
2011-12-24 20:03:23
code: #pascal
program Project2; {$APPTYPE CONSOLE} uses SysUtils; var s1,s2,s:string ; p:integer; begin readln(s); readln(s1); readln(s2); p:=pos(s1,s); if p>0 then begin delete(s,p,length(s1)); insert(s2,s,p); end; writeln(s) end.
автор: north
Поделиться: