Răspuns :
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.
Vă mulțumim că ați vizitat site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Dacă aveți întrebări sau nevoie de asistență suplimentară, nu ezitați să ne contactați. Pe curând și nu uitați să ne adăugați la favorite!