Определить буквы, которые встречаются во всех словах - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

даны три слова. необходимо определить буквы, которые встречаются во всех словах

Решение задачи: «Определить буквы, которые встречаются во всех словах»

textual
Листинг программы
Var
  s1, s2, s3: String;
 
Begin
  s1 := ReadlnString('Введите первое слово: ');
  s2 := ReadlnString('Введите второе слово: ');
  s3 := ReadlnString('Введите третье слово: ');
    Foreach c: Char in s1 do
      If s2.Contains(c) and s3.Contains(c) then Writeln(c);
End.

Объяснение кода листинга программы

В данном коде на языке PascalABC.Net происходит следующее:

  1. Программа запрашивает у пользователя ввод трех слов, сохраняет их в переменных s1, s2, s3 типа String.
  2. Затем происходит проверка, есть ли каждая буква из первого слова (s1) во втором (s2) и третьем (s3) словах.
  3. Если буква присутствует и в s2, и в s3, то она выводится на экран с помощью Writeln.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.833 из 5
Похожие ответы