тема программы (начало изучения подпрограмм)

[Orleana-vi]

программа: создайте функцию,возвращающую ту цифру двух исходных чисел,которые встречаются в обоих числах.

только с учетом того что это только начало изучения темы "подпрограммы"
и если можно,с пояснениями
буду благодарна

[Prime123]

Уточните язык

[andrewpalkin]

Сообщение от Orleana-vi

программа: создайте функцию,возвращающую ту цифру двух исходных чисел,которые встречаются в обоих числах.

только с учетом того что это только начало изучения темы "подпрограммы"
и если можно,с пояснениями
буду благодарна

Уже создавал/а тему и ее закрыли ! Ты хоть сам/а сделал/а что нибудь ! Код напиши , который уже есть и что в нем не работает ?

[Orleana-vi]

паскаль

у меня нет соображений на эту тему
если бы они были,я бы не обращалась за помощью

[Asker13]

Orleana-vi, подпрограммы - это процедуры или функции. Вашу задачу можно решить с использованием функции логического типа (boolean). Пример: function ReturnBool(X,Y: integer): boolean;.
Перевести в теле функции два числа в строки, и попарно сравнить каждый элемент первой строки со всеми элементами второй строки. Если будет хоть одно совпадение, то функция вернёт вам true, иначе false. (ReturnBool := true; ReturnBool := false);

Условие невнимательно прочитал. Даже если так, можно переделать ReturnBool в string (переименовать ReturnBool), и присваивать ей элемент первой строки при первом совпадении. Вызывать из основной программы, как WriteLn(ReturnBool(X,Y));

[andrewpalkin]

Сообщение от Orleana-vi

паскаль

у меня нет соображений на эту тему
если бы они были,я бы не обращалась за помощью

Вот именно , что здесь мы помогаем , а не пишем программы за других

[Smitt&Wesson]

Я уже писал, через AnsiString можно.
В этом классе есть свойство Lingth.
Перевести числа можно функцией StrToInt(переменная);