РЕШИТЬ В ПАСКАЛЬ Дана строка, состоящая из слов (разбитых пробелами) и строка символов. Необходимо выяснить, можно ли из символов строки 2 получить слова из строки 1. Если можно, то вывести эти слова, иначе вывести NO. (буквы из набора можно использовать несколько раз)
Входные данные
Строка содержащая слова через пробел и строка с набором букв
Выходные данные
Слова, которые можно получить из символов второй строки или слово NO
For example:
Input Result
hello i love you
ieohuyvl
hello
i
love
you
Vgenika
2
24.12.2020 09:34
0
Другие вопросы по теме Информатика
strume54
12.05.2020 06:00
kskskdksks
06.06.2019 13:10
seletkovaolya
01.03.2021 10:38
максимус67
01.03.2021 10:38
Dbrf30122222
01.03.2021 10:38
labzaekaterina
01.03.2021 10:38
Популярные вопросы
- Какой из амперметров можно включить в данную цепь? ...
2 - В чем состоит задача оптимального планирования в следующей задаче:пусть объектом...
3 - Я. Сейчас. Во Задам. *Вы. Тупые. Или. Да....
2 - Маруся Г. Квітка-Основ яненко)...
2 - Сократи алгебраическую дробь Введи числитель A= знаменатель B= показатель c=...
3 - Заполни таблицу. Экологические факторы. Группа факторов Определение Примеры Абиотическая...
3 - Який об єм повітря витратиться на спалювання 5 г метиламіну, негорючі домішки в...
1 - Назовите метод, который можно использовать, чтобы: 1) Описать внешний вид горной...
3 - Определи какое значение выражают предлоги в словосочетаниях. 1 Рассказать ( о чем?)...
2 - Здравствуйте решить . Ломанная состоит из 3 звеньев . Длинна 1 звена равна 7,4...
3
var s,s1,s2:string;
p,k:integer;
begin
readln(s);
s1:=s+' ';
while pos(' ',s1)>0 do delete(s1,pos(' ',s1),1);
while s1<>'' do
begin
p:=pos(' ',s1);
s2:=copy(s1,1,p-1);
delete(s1,1,p);
k:=1;
while pos(s2,s1)>0 do
begin
k:=k+1;
delete(s1,pos(s2,s1),p);
end;
if k=1 then writeln(s2);
end;
end.