tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Сделать в паскале. составьте
Сделать в паскале. составьте программу, которая удаляет из слова x те буквы, которые встречаются в слове z. слова x и z вводятся с клавиатуры.
hhhf1fodjcnj
1 29.05.2019 07:10
1
Ответы
Дошик58694
28.06.2020 01:16
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.
Не забудь отметить лучший ответ ;-)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
shovkoplyas123456
19.12.2021 11:19
Запиши десятичное число 122 в виде суммы чисел, являющихся различными степенями двоек, например: 13=8+4+1Числа в сумме должны идти в порядке убывания...
Loxswe
19.12.2021 11:07
C++Даны два целых числа A и В (каждое в отдельной строке). Выведите все числа от A до B включительно, в порядке возрастания, если A B, или в порядке убывания в противном случае....
annymayy0
19.12.2021 11:04
Лёня сохранил файл Расписание.xls в некотором каталоге. После того как в этом каталоге он создал подкаталог и переместил туда файл Расписание.xls, его полное имя файла стало...
flag4
19.12.2021 10:58
Произвольная последовательность символов, ограниченная специальными символами конца абзаца....
khakimail
19.12.2021 10:53
Information is: [a] the totality of facts, phenomena, messages subject to registration and processing [a] set of printed and sound messages [a] the totality of newspaper articles,...
amura20
19.12.2021 10:27
1 Какие действия необходимо применить, для того чтобы изменить фон шаблона? 1 Файл - Фон 2 Формат - Фон 3 Параметры страницы - Фон 2 Что можно добавить на страницу документа...
пумв
19.12.2021 10:23
Запропонуйте та опишіть iноваційну техтологію, яка на вашу думку, є найбільш корисною на сьогоднішній день. Обгрунтуйте свою думку....
1o10019soos
19.12.2021 10:07
Індіана Джонс та перстень Цзунь-Си Написати функцію maze_controller(mr), єдиним аргументом якої є вже ініціалізований (перевіряльником) об єкт класу MazeRunner. Функція нічого...
ingab2989
19.12.2021 10:02
Інформаційними об єктами можна вважати … Виберіть одну або декілька відповідей: a. письмовий стіл b. затемнення сонця c. комп ютер d. учня e. проміжок часу...
VikaKharitoniv
19.12.2021 10:00
Запиши наименьшее четырёхзначное шестеричное число, сумма цифр которого равна 7....
Популярные вопросы
7африка 4. в экваториальных лесах африки произрастают: а) масличная пальма...
3
1. составьте по схеме уравнение реакции: бутадиен-1,3 + хлороводород= 2. определите...
2
Доклад по окружающему миру на тему африка...
3
Как проверить букву е в слове сержант...
3
Как можете, просто ваше мнение по поводу вопроса! как по вашему мнению можно...
2
План к рассказу по окр.мир что такое лес...
1
Частное в котором делимое представлено суммой чисел 64505 и 89095,а делитель-разностью...
3
Какая масса аммиака потребуется для получения азотной кислоты массой 12,6...
1
Завтра с утра сдавать! но не могу сделать! надо раскрыть скобки в нужном !...
1
Ну то что сможете решите : 1)медная монета имеет массу 6,4г.определите количество...
3
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.
Не забудь отметить лучший ответ ;-)