Помогите пожалуйста задачу сделать в паскале

Question

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

Answer 1

67

bodkin

07 марта 2023

varx,z: string; i: integer; ar: array['а'… 'я'] of boolean; beginreadln (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. Не забудь отметить лучший ответ

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: