Для заданных трех строк S1, S2 и S3 напечатать те латинские буквы, которые входят только в одну из этих строк

@Physt2 · Регистрация: 04.01.2019

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

Для заданных трех строк S1, S2 и S3 напечатать те латинские буквы, которые входят только в одну из этих строк.
Указание: например, ввели строки S1 — ‘asfgsas’, S2 —‘qweasdyu’, S3 — ‘mnbqwef’. Ответом должно служить следующее: ‘Только в первую строку входят буквы — g’,
‘Только во вторую строку входят буквы — dyu’, ‘Только в третью строку входят буквы — mnb’.

@Joy · 04.01.2019, 20:38

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
function dist(s1,s2:string):string;  
var
  i,n:integer;
  r:string;
begin
  r:=s1;
  for i:=1 to length(s2) do begin
    n:=pos(s2[i],r);
    while n>0 do begin 
      delete(r,n,1);
      n:=pos(s2[i],r);
    end;
  end; 
  dist:=r;  
end;   
var
  s1,s2,s3:string;
begin
  write('S1=');readln(s1);  
  write('S2=');readln(s2);
  write('S3=');readln(s3);
  writeln('Только в первую строку входят буквы — ',dist(dist(s1,s3),s2));
  writeln('Только во вторую строку входят буквы — ',dist(dist(s2,s3),s1));
  writeln('Только в третью строку входят буквы — ',dist(dist(s3,s2),s1));  
end.

Не по теме:

S1=asfgsas
S2=qweasdyu
S3=mnbqwef
Только в первую строку входят буквы — g
Только во вторую строку входят буквы — dyu
Только в третью строку входят буквы — mnb

Новые блоги и статьи Все статьи Все блоги /
Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .

@Physt2 1 / 1 / 0 Регистрация: 04.01.2019 Сообщений: 42

	Для заданных трех строк S1, S2 и S3 напечатать те латинские буквы, которые входят только в одну из этих строк 04.01.2019, 18:56. Показов 2355. Ответов 1 Метки pascal abc (Все метки) Для заданных трех строк S1, S2 и S3 напечатать те латинские буквы, которые входят только в одну из этих строк. Указание: например, ввели строки S1 — ‘asfgsas’, S2 —‘qweasdyu’, S3 — ‘mnbqwef’. Ответом должно служить следующее: ‘Только в первую строку входят буквы — g’, ‘Только во вторую строку входят буквы — dyu’, ‘Только в третью строку входят буквы — mnb’. 0

Опции темы

Для заданных трех строк S1, S2 и S3 напечатать те латинские буквы, которые входят только в одну из этих строк

Решение