Question

Помогите пожалуйста задачу сделать в паскале.Составьте программу, которая удаляет из слова X те буквы, которые встречаются в слове Z. Слова X и Z вводятся с клавиатуры.

Answer 1

var
x,z:string;
i:integer;
ar:array['а'..'я'] of boolean;
begin
readln(x);
readln(z);

for i:=1 to Length(z) do
  ar[z[i]]:=true;
  for i:=Length(x) downto 1 do
    if (ar[x[i]] = true) then delete(x,i-1,1);   
writeln(x);
end.

Не забудь отметить лучший ответ ;-)

Answer 2

Я могу помочь вам с вашей задачей по Паскалю. Вот один из возможных способов решения:

program DeleteLetters;
var
  X, Z: string; // слова, введенные с клавиатуры
  i, j: integer; // счетчики для циклов
begin
  writeln('Введите слово X:');
  readln(X);
  writeln('Введите слово Z:');
  readln(Z);
  // пройдем по каждой букве в слове X
  for i := 1 to length(X) do
  begin
    // проверим, встречается ли эта буква в слове Z
    for j := 1 to length(Z) do
    begin
      // если да, то удалим ее из слова X
      if X[i] = Z[j] then
      begin
        delete(X, i, 1);
        // уменьшим счетчик i, так как длина слова X изменилась
        i := i - 1;
        // выйдем из внутреннего цикла
        break;
      end;
    end;
  end;
  // выведем результат
  writeln('Слово X после удаления букв: ', X);
end.

Этот код использует функцию `delete`, которая удаляет определенное количество символов из строки, начиная с заданной позиции. Вы можете узнать больше об этой функции в документации по Паскалю. Надеюсь, это поможет вам с вашей задачей. Если у вас есть еще вопросы, я рад помочь.

: Delete - Free Pascal