Определить буквы, которые встречаются во всех словах - 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 происходит следующее:
- Программа запрашивает у пользователя ввод трех слов, сохраняет их в переменных s1, s2, s3 типа String.
- Затем происходит проверка, есть ли каждая буква из первого слова (s1) во втором (s2) и третьем (s3) словах.
- Если буква присутствует и в s2, и в s3, то она выводится на экран с помощью Writeln.