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

String28. Дан символ $C$ и строка $S$ . Удвоить каждое вхождение символа $C$ в строку $S$ .

Решение:

program String28;
var
 S:string;
 C:Char;
 i:integer;

begin
 Write('C:');
 Readln(C);
 Write('S:');
 Readln(S);
 i:=0;
 While(i<=length(S)) do
  begin
   if S[i] = C then
    begin
     Insert(C,S,i);
     inc(i);
    end;
   inc(i);
  end;

 writeln(S);
end.

program String28;

var

S:string;

C:Char;

i:integer;

begin

Write('C:');

Readln(C);

Write('S:');

Readln(S);

i:=0;

While(i<=length(S)) do

begin

if S[i] = C then

begin

Insert(C,S,i);

inc(i);

end;

inc(i);

end;

writeln(S);

end.

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

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

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

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