Даны две строки. Вывести символы, встречающиеся и в той и в другой строках

23.04.2014, 20:53. **Показов** 2599. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Даны две строки. Вывести символы, встречающиеся и в той и в другой строках.

Kodzaev · 23.04.2014, 21:04

Андрей1331, мат на форуме запрещен. Еще раз попробуй и вылетишь без предупреждения. Вот решение твоей задачи:

Pascal

var
  s1, s2: string;
  m1, m2, m3: set of char;
  i: byte;
 
begin
  WriteLn('Введите 1 строку: '); ReadLn(s1);
  WriteLn('Введите 2 строку: '); ReadLn(s2);
  for i := 1 to Length(s1) do
    Include(m1, s1[i]);
  for i := 1 to Length(s2) do
    Include(m2, s2[i]);
  m3 := m1 * m2;
  WriteLn('Символы, встречающиеся в обеих строках:');
  for i := 0 to 255 do
    if Chr(i) in m3 then
      Write(Chr(i), ' ');
  ReadLn
end.

Андрей1331
		1
	Даны две строки. Вывести символы, встречающиеся и в той и в другой строках 23.04.2014, 20:53. Показов 2599. Ответов 1 Метки нет (Все метки) Даны две строки. Вывести символы, встречающиеся и в той и в другой строках.

	23.04.2014, 21:04

Даны две строки. Вывести символы, встречающиеся и в той и в другой строках

Решение