Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.11.2018, 17:35   #1
XakProg
Пользователь
 
Регистрация: 11.10.2018
Сообщений: 15
По умолчанию Дано два слова. Выписать буквы, которые есть и в 1-м, и во 2-м слове.

Дано два слова. Выписать буквы, которые есть и в 1-м, и во 2-м слове. (delphi)
XakProg вне форума Ответить с цитированием
Старый 25.11.2018, 08:35   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var s1,s2,s:string;
    i:integer;
begin
   s1:=Edit1.Text;
   s2:=Edit2.Text;
   s:='';
   For i:=1 to Length(s1) do
      If (Pos(s1[i],s2)>0) and (Pos(s1[i],s)=0) then
      begin
         If s<>'' then
            s:=s+', ';
         s:=s+s1[i];
      end;
   Label1.Caption:=s;
end;
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выписать все слова, в которых отсутствуют определенные буквы Halikarnas Общие вопросы C/C++ 1 29.11.2017 20:44
Даны два слова. Напечатать только те буквы слов, которые встречаются в обоих словах только один раз. EDWIN503 Общие вопросы по Java, Java SE, Kotlin 3 25.09.2017 03:37
Дан текст, заканчивающийся символом "!". Выписать из этого текста все гласные буквы, которые не входят более чем в одно слово. Расположить эти буквы в алфавитном порядке. Денис123321 Паскаль, Turbo Pascal, PascalABC.NET 1 16.02.2017 10:06
СИ. Удалить слова, которые содержат все повторяющиеся буквы первого слова nick23 Помощь студентам 7 01.11.2009 14:47
Си. Вычеркнуть из слова X те буквы, которые встречаются в слове Z. hen Помощь студентам 1 29.04.2009 15:32