Автор: Kirk

Kirk — Wed, 17 May 2017 12:38:52 +0000

Program s34;

Var
 s,s0: string;
 num,poz,newpoz: integer;
 
Begin
 Write('S: ');
 Readln(s);
 Write('S0: ');
 Readln(s0);
 
 poz:=0;
 repeat
  newpoz:=pos(s0,copy(s,poz+1,length(s)));
  if newpoz<>0 then poz:=poz+newpoz;
 Until newpoz = 0;
 
 if (poz<>0) then delete(s,poz,length(s0));
 
 Writeln(s);
 End.

Program s34;

Var

s,s0: string;

num,poz,newpoz: integer;

Begin

Write('S: ');

Readln(s);

Write('S0: ');

Readln(s0);

poz:=0;

repeat

newpoz:=pos(s0,copy(s,poz+1,length(s)));

if newpoz<>0 then poz:=poz+newpoz;

Until newpoz = 0;

if (poz<>0) then delete(s,poz,length(s0));

Writeln(s);

End.

Комментарии: Решаем задачи Абрамян на Паскале. String34

Автор: Kirk