40 баллов.Помогите пожалуйста составить программу,которая удаляет все символы "и" в...

Question

40 баллов.Помогите пожалуйста составить программу,которая удаляет все символы "и" в произвольном тексте,введённом с клавиатуры.

Answer 1

В Паскале?..................

Comments

да

---

var a,b,d:string;
i,c,j:integer;
begin
b:='и';
d:='И';
readln(a);
for i:=1 to length(a) do
begin
j:=pos(d,a);
c:=pos(b,a);
delete(a,c,1);
delete(a,j,1);
end;
writeln(a);
end.

---

Это на Паскале. Что не понятно, так пиши.