Решаем задачи Абрамян на Паскале. String30

String30. Дан символ $$C$$ и строки $$S$$, $$S_0$$. После каждого вхождения символа $$C$$ в строку $$S$$ вставить строку $$S_0$$.

Решение:

program String30;
var
 S,S0:string;
 C:Char;
 i:integer;

begin
 Write('C:');
 Readln(C);
 Write('S:');
 Readln(S);
 Write('S0:');
 Readln(S0);

 i:=0;
 While(i<=length(S)) do
  begin
   if S[i] = C then
    begin
     Insert(S0,S,i+1);
     i:=i+Length(S0);
    end;
   inc(i);
  end;

 writeln(S);
end.

program String30;

var

S,S0:string;

C:Char;

i:integer;

begin

Write('C:');

Readln(C);

Write('S:');

Readln(S);

Write('S0:');

Readln(S0);

i:=0;

While(i<=length(S)) do

begin

if S[i] = C then

begin

Insert(S0,S,i+1);

i:=i+Length(S0);

end;

inc(i);

end;

writeln(S);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String30

Комментарии:

Добавить комментарий Отменить ответ