• Помогите пожалуйста). Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово. Повторяющиеся буквы первого слова не рассматривать. Например, если заданные слова «процессор» и информация», то для букв первого из них ответом должно быть: «нет да да да нет нет». это в паскале))

Ответы 1

  • vars,c,k:string;i:integer;beginwrite ('Введите первое слово: ');readln(s);write ('Введите второе слово: ');readln(c);while length(s)<>0 dobegin  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.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years