Предмет: Информатика,
автор: vikus444
40 баллов.Помогите пожалуйста составить программу,которая удаляет все символы "и" в произвольном тексте,введённом с клавиатуры.
Ответы
Автор ответа:
0
В Паскале?..................
Автор ответа:
0
да
Автор ответа:
0
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.
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.
Автор ответа:
0
Это на Паскале. Что не понятно, так пиши.
Похожие вопросы
Предмет: Информатика,
автор: obecoleksandr
Предмет: Другие предметы,
автор: aroslavaleshenko
Предмет: Українська література,
автор: annastylefashoncom
Предмет: Химия,
автор: willam19814
Предмет: Математика,
автор: almaztilepberg