ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ! Составьте программу, которая позволяет удалить из слова X те буквы, которые встречаются в слове Z. Слова X и Z введите с клавиатуры.
Ответы
Ответ дал:
0
var x,z: string;
i: integer;
begin
x:= 'клавиатура';
z:= 'буква';
for i:=1 to length(z) do
while pos(z[i],x)>0 do delete (x,pos(z[i],x),1);
writeln(x);
end.
Результат:
литр
i: integer;
begin
x:= 'клавиатура';
z:= 'буква';
for i:=1 to length(z) do
while pos(z[i],x)>0 do delete (x,pos(z[i],x),1);
writeln(x);
end.
Результат:
литр
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад