Выведите с клавиатуры две символьные строки и определите Какие символы встречаются в обеих строках
123
ОТВЕТЫ
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s1:=ReadlnString(1:).ToLower;
var s2:=ReadlnString(2:).ToLower;
s1.Intersect(s2).Println;
end.
Пример
1: АрозаупаланалапуАзора
2: КарлуКларыукралкораллы
ароул
// Внимание! Если программа не работает, обновите версию!
begin
var s1:=ReadlnString(1:).ToLower;
var s2:=ReadlnString(2:).ToLower;
s1.Intersect(s2).Println;
end.
Пример
1: АрозаупаланалапуАзора
2: КарлуКларыукралкораллы
ароул
35
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Евсевий
Введите с клавиатуры символьную строку и выведите все символы ...
2019-05-24 10:00:31
Вит
Автомат получает на вход четырёхзначное десятичное число. По полученному ...
2019-05-24 09:58:49
Bibevnal
Введите с клавиатуры число n и запишите в массив ...
2019-05-24 09:56:47
Владимир
Напишите наименьшее ближайшее целое число для числа 28(6 система ...
2019-05-24 09:55:46