Задана строка S требуется подсчитать кол-во включений подстроки PS1 в строке S и заменить на подстроку PS2
10-11 класс
|
var s,p1,p2:string;
i,k:integer;
begin
readln(s);
readln(p1);
readln(p2);
while (pos(p1,s)>0) do begin
inc(k);
i:=pos(p1,s);
delete(s,pos(p1,s),length(p1));
insert(p2,s,i);
end;
writeln(k);
writeln(s);
end.
Другие вопросы из категории
что вышло у меня:Program zzz;
uses ctr;
var
M:array [1..7] of integer;
i,sum:integer;
begin;
clrscr;
sum:=0;
writeln('Введите массивы: ');
for i:=1 to 7 do begin
read (M[i]);
sum:=sum+sqr(M[i]);
дальше незнаю как да и это полным бредом наверно покажется знающим людям. Учусь на 1 курсе в вузе, в школе информатики не было вообще. Отчитали лекции нам, посадили за компы, а я паскаль этот в первый раз и увидел на первом же занятии... Пытаюсь вникнуть но не особо получается. Прошу помощи)
Читайте также
получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.
экран исходный массив и найденное кол-во.
АВС Очень нужно помогите!
четных местах. выведите на экран исходный массив и найденное кол-во.
"Подсчитайте кол-во операций в приведенном алгоритме (Ответ приведите в виде функции от параметра n)." Подсчитать кол-во операций самому - это возможно, а как привести ответ в виде функции от параметра n - я не знаю. Помогите, пожалуйста, понять это задание. Заранее благодарен!