Проверить, есть ли в записи числа m цифры, совпадающие с цифрами в записи числа n

@xit_lis · Регистрация: 14.04.2011

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

Ребята нужна ваша помощь, начинаю изучать паскаль и вообще всё как то глухо пока что, препад задал задачу, даже не представляю как сделать(

Даны два натуральных числа m и n(m< 9999, n < 9999). Проверить,
есть ли в записи числа m цифры, совпадающие с цифрами
в записи числа n.

P.S еслит числа совпадают то должно вывестись true, если нет то false.

@SuPeR XaKer · 14.04.2011, 17:53

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Uses
 CRT;
Var
 n,m:longint;
 l,k:set of byte;
begin
 readln(m,n);
 m:=abs(m);
 n:=abs(n);
 l:=[];
 k:=[];
 repeat
  l:=l+[m mod 10];
  m:=m div 10;
 until m=0;
 repeat
  k:=k+[n mod 10];
  n:=n div 10;
 until n=0;
 writeln;
 if (l*k)=[] then writeln('Íåò')
 else writeln('Äà â ÷èñëå m åñòü öèôðû êîòîðûå ïðèñóòñòâóþò â ÷èñëå n')
end.

@xit_lis · 14.04.2011, 20:53 **[ТС]**

спасибо

Новые блоги и статьи Все статьи Все блоги /
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .

@xit_lis 0 / 0 / 0 Регистрация: 14.04.2011 Сообщений: 8

	Проверить, есть ли в записи числа m цифры, совпадающие с цифрами в записи числа n 14.04.2011, 13:14. Показов 1505. Ответов 2 Метки нет (Все метки) Ребята нужна ваша помощь, начинаю изучать паскаль и вообще всё как то глухо пока что, препад задал задачу, даже не представляю как сделать( Даны два натуральных числа m и n(m< 9999, n < 9999). Проверить, есть ли в записи числа m цифры, совпадающие с цифрами в записи числа n. P.S еслит числа совпадают то должно вывестись true, если нет то false. 0

@xit_lis 0 / 0 / 0 Регистрация: 14.04.2011 Сообщений: 8
	14.04.2011, 20:53 [ТС]
	спасибо 0

Опции темы

Проверить, есть ли в записи числа m цифры, совпадающие с цифрами в записи числа n

Решение