Question

Elaborati un program in Pascal care radiaza din şir caracterul 'B'(tipul de date string clasa 10)

Answer 1

program radiereB;

var s:string;

   i, terminat: integer;

begin

  writeln(' introdu sirul de caractere:');

  readLn(s);

  terminat:=0;

  while (terminat=0) do

    begin

       terminat:=1;

       for i:=1 to length(s) do

         begin

           if s[i]='B' then

             begin

                delete(s,i,1);

                terminat:=0;

              end;

          end;

    end;

   writeln(' sirul modificat:');

   writeln(s);

end.