0 / 0 / 3
Регистрация: 24.08.2012
Сообщений: 76

Проверить, есть ли в записи числа m цифры

30.10.2012, 20:15. Показов 2087. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны два натуральных числа m и n. Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
30.10.2012, 20:15
Ответы с готовыми решениями:

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

Даны три натуральных числа.Напечатать те цифры,которые есть в записи первого и второго числа,но нет в записи третьего
Даны три натуральных числа.Напечатать те цифры,которые есть в записи первого и второго числа,но нет в записи третьего

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

3
Почетный модератор
 Аватар для Puporev
64308 / 47605 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
30.10.2012, 20:38
Можно решить с помощью множеств.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
type mn=set of byte;
procedure Mnz(a:longint;var m:mn);
begin
m:=[];
while a>0 do
 begin
  if not (a mod 10 in m) then m:=m+[a mod 10];
  a:=a div 10;
 end;
end;
var m,n:longint;
    mm,nn:mn;
begin
clrscr;
repeat
writeln('Введите 2 натуральных числа:');
readln(m,n);
until(m>0)and(n>0);
Mnz(m,mm);
Mnz(n,nn);
if mm*nn<>[] then write('В числах есть одинаковые цифры')
else write('В числах нет одинаковых цифр');
readln
end.
1
0 / 0 / 3
Регистрация: 24.08.2012
Сообщений: 76
30.10.2012, 20:43  [ТС]
спасибо)
а можно как нибудь по проще решить?
0
Почетный модератор
 Аватар для Puporev
64308 / 47605 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
30.10.2012, 20:56
Цитата Сообщение от -LEX- Посмотреть сообщение
а можно как нибудь по проще решить?
Не знаю, придумаете, расскажите.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
30.10.2012, 20:56
Помогаю со студенческими работами здесь

Проверить, есть ли в записи числа m цифры, совпадающие с цифрами в записи числа n
Помогите составить программу. Условие: Даны два натуральных числа m и n{m&lt; 9999, n &lt; 9999). Проверить, есть ли в записи числа m...

Проверить, есть ли в записи числа m цифры, совпадающие с цифрами в записи числа n
не решается задачка :с помогите, пожалуйста. все что смог, изложил. это подпрограмма если что сделать с помощью циклов, никаких строковых...

Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n
Даны два натуральных числа m и n (m &lt; или = 9999, n &lt; или = 9999). Про¬верить, есть ли в записи числа m цифры, одинаковые с цифра¬ми в...

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

Проверить, есть ли в записи числа три одинаковых цифры. Найти все делители натурального числа
1. Дано натуральное число n. Проверить, есть ли в записи числа три одинаковых цифры (n&lt;=9999). 2. Найти все делители натурального...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

Новые блоги и статьи
Вопросы на собеседованиях по микросервисам
ArchitectMsa 27.03.2025
Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .
Взаимодействие Python с REST API
py-thonny 27.03.2025
REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .
sshd restrictions, ssh access limitations
jigi33 26.03.2025
sshd restrictions | ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel
Компиляция C++ с Clang API
NullReferenced 24.03.2025
Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .
Многопоточное программировани­е в C#: Класс Thread
UnmanagedCoder 24.03.2025
Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
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
Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru