8. • Ввести строку и символ. Вывести строку, полученную из исходной строки удалением всех вхождений этого символа.
var s:string;
a:string;
p,i:integer;
begin
read(s);
read(a);
for i:=length(s) downto 1 do
if s=a then
delete(s,i,1);
write(s);
readln;
end.
Код:
var s, a:string;
idx, flag:integer;
begin
writeln('Enter your line: ');
readln(s);
writeln('Enter your letter: ');
readln(a);
flag:=1;
while flag = 1 do
begin
flag:=0;
for idx:= 1 to length(s) do
if s[idx]=a then
begin
delete(s,idx,1);
flag:=1;
break;
end;
end;
writeln(s);
readln;
end.
idx, flag:integer;
begin
writeln('Enter your line: ');
readln(s);
writeln('Enter your letter: ');
readln(a);
flag:=1;
while flag = 1 do
begin
flag:=0;
for idx:= 1 to length(s) do
if s[idx]=a then
begin
delete(s,idx,1);
flag:=1;
break;
end;
end;
writeln(s);
readln;
end.
Спасибо большое!!!!!