Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
1ПИНЧЕР1
17.12.2020 23:41 •
Информатика
Сделать в паскале. составьте программу, которая удаляет из слова x те буквы, которые встречаются в слове z. слова x и z вводятся с клавиатуры.
Показать ответ
Ответ:
арсен2000
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.
Не забудь отметить лучший ответ ;-)
0,0
(0 оценок)
Популярные вопросы: Информатика
Cardboard
31.03.2022 12:02
1317(8) ,2f4(16),1011110100(2)в десятичную в систему счисления...
Valentinka14485
22.05.2023 03:36
Введено четырехзначное число.найти количество четных цифр...
Anastasya156
01.02.2020 21:50
Это олимпиада по икт. студент кеша устроился на летнюю стажировку. кеша охотно бы ходил на работу пешком, но, к его сожалению, офис компании расположен довольно далеко...
Mazhie
01.09.2021 21:40
Решить в паскаль! дана прямоугольная матрица. найти строку с на меньшей суммой элементов. и если не сложно опишите действия. заранее ! ...
hudo1
02.11.2020 10:19
Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 35 строк, в каждой строке 64 символа. определите информационный объём статьи в кодировке windows-1251,...
elvinsasylbaeva
13.04.2021 06:18
Название операционной системы предназначены для планшетов и мобильных телефонов...
oliver6no
16.01.2022 10:55
40 ! паспорт-одна из информационных моделей человека. а) какова, на ваш взгляд, в данном случае цель моделирования? б) какие факторы признаны существенными в этой...
lvlupiq
06.01.2023 16:19
1. что понимают под термином «поколение» эвм: а) под поколением эвм понимают все счетные машины б) под поколением эвм понимают все типы и модели эвм, построенные на...
alenalis41125
06.07.2021 14:25
Разделить указанные ниже предложения на 2 столбца (высказывания) , (предложения не являющееся высказываниями) 1) кто автор этой книги? 2) 2*х=10 3) 8+2=10 4) собака...
Mehribonim
06.07.2021 14:25
1) переведите числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления. а) 49; б) 156; в))2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.
Не забудь отметить лучший ответ ;-)