Помогите пожалуйста). Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово. Повторяющиеся буквы первого слова не рассматривать. Например, если заданные слова «процессор» и информация», то для...
Помогите пожалуйста). Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово. Повторяющиеся буквы первого слова не рассматривать. Например, если заданные слова «процессор» и информация», то для букв первого из них ответом должно быть: «нет да да да нет нет». это в паскале))
Гость
Ответ(ы) на вопрос:
Гостьvar
s,c,k:string;
i:integer;
begin
write ('Введите первое слово: ');
readln(s);
write ('Введите второе слово: ');
readln(c);
while length(s)<>0 do
begin
k:=s[1];
delete(s,1,1);
while pos(k,s)<>0 do
delete(s,pos(k,s),1);
if pos(k,c)=0 then write('нет ')
else write('да ');
end;
end.
Не нашли ответ?
Похожие вопросы