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

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

Решение:

program String29;
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);
     i:=i+Length(s0);
    end;
   inc(i);
  end;

 writeln(S);
end.

program String29;

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);

i:=i+Length(s0);

end;

inc(i);

end;

writeln(S);

end.

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

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

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

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