Ответы на вопрос:
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.не забудь отметить лучший ответ ; -)
Популярно: Информатика
-
maks31201723.03.2020 22:54
-
innadom3422.05.2021 21:57
-
mrrr1512.02.2023 21:49
-
026k06.05.2021 03:17
-
1649fn4917.07.2022 07:25
-
Неизвестная6607.04.2023 01:16
-
спасибо8814.08.2021 19:03
-
илона270730.11.2022 01:51
-
nikakoheleva1428.03.2021 21:28
-
Иисус123416.05.2021 11:25