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

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.

 другое арбуз почтизнаток  (469) в чем отличие информационных ресурсов от материальных? какие есть основные виды национальных информ. ресурсов? закрыт 5 лет назад в лидеры лучший ответ элявысший разум (175060) это виды:   библиотечные ресурсы  архивные ресурсы  научно-техническая информация  правовая информация  информация государственных (властных) структур  отраслевая информация  финансовая и информация  информация о природных ресурсах  информация предприятий и учреждений  на фоне продолжающегося рос­та производства новых видов товаров начался процесс увеличения доли информационных ресурсов по отношению к материальным. информационные ресурсы в различных формах стали самостоятель­ными объектами (идеи, технологии и ноу-хау, научная и техническая ) [2].  широкое распространение информационных ресурсов дало основание говорить о возникновении информационного общества. информационные ресурсы имеют качественное и принципиальное отличие от материальных, вследствие неприменимости к ним закона сохранения материи. отдавая информационный ресурс, лицо вовсе не лишается его, то есть может использовать его сколько угодно раз.  исследуя и оценивая новые информационные и интеллектуальные ресурсы, современные эконо­мисты, едва успевают их описать и дать некоторые характеристики.

Const   n = 50; // количество чиселvar   k: array [1..n] of integer;   i, j, n1, n2, minr, a, b: integer; begin   writeln(n, ' ', ': d');   a : = random(1000);   b : = random(1000);   minr : = 10000;   for i : = 1 to n do       k[i] : = a + random(b);   for i : = 1 to n do       for j : = 1 to n do           if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then           begin               minr : = abs(k[i] - k[j]);               n1 : = i;               n2 : = j;           end;   writeln(n1, ' ', n2); end.