Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
pbroger
0 / 0 / 0
Регистрация: 22.09.2015
Сообщений: 1
#1

Составить программу, которая выводила множество цифр, входящих в изображение числа N, которые не входят в изоб

22.09.2015, 23:42. Просмотров 331. Ответов 2
Метки нет (Все метки)

Пусть заданы два натуральных числа N и M. Составить программу, которая выводила множество цифр, входящих в изображение числа N, которые не входят в изображение числа M.

Написал для чисел состоящих из 3 цифр. Подскажите как сделать для множества чисел?
Delphi
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
n,m,n1,n11,n2,n22,n3,n33,m1,m11,m2,m22,m3,m33:integer;
 
begin
writeln('vvedite chislo N');
readln(n);
writeln('vvedite chislo M');
readln(m);
n1:=n mod 10;
n11:=n div 10;
n2:=n11 mod 10;
n22:=n11 div 10;
n3:=n22 mod 10;
m1:=m mod 10;
m11:=m div 10;
m2:=m11 mod 10;
m22:=m11 div 10;
m3:=m22 mod 10;
write('result = ');
if (n3 <> m1) and (n3 <> m2) and (n3 <> m3) then
begin
write(n3);
end;
if (n2 <> m1) and (n2 <> m2) and (n2 <> m3) then
begin
write(n2);
end;
if (n1 <> m1) and (n1 <> m2) and (n1 <> m3) then
begin
write(n1);
end;
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.09.2015, 23:42
Ответы с готовыми решениями:

Множество слов. Напечатать все звонкие согласные буквы, которые входят (не входят) хотябы в одно слово.
Дана непустая последовательность слов из строчных русских бкув, между ними...

Составить программу, которая получает двухзначное число путём удаления из исходного числа цифр сотен и единиц
Помогите решить задачу в Delphi Дано четырёхзначное число. Составить...

Описать функцию, которая возвращает количество разных цифр, входящих в запись числа типа Longint
Здравствуйте, уважаемые знатоки Делфи! Помогите пожалуйста написать программу...

Создать программу, которая находит и изымает все слова, которые входят в текст по одному разу
Задано текст, слова в котором разделены пробелами и знаками препинания. Создать...

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

2
VladWH
241 / 191 / 94
Регистрация: 01.05.2015
Сообщений: 732
23.09.2015, 01:15 #2
pbroger, если я правильно понял что такое "изображение числа", то так
Delphi
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
26
27
28
29
30
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
 Str: string='';
 N,M,I: Integer;
 AN,AM: set of Byte;
 
begin
 ReadLn(N,M);
 repeat
  I := N mod 10;
  N := N div 10;
  Include(AN, I);
  if N<10 then Include(AN,N);
 until N<10;
 repeat
  I := M mod 10;
  M := M div 10;
  Include(AM, I);
  if M<10 then Include(AM,M);
 until M<10;
 Writeln('Result:');
 for I:=0 to 9 do
  if (I in AN) and (not (I in AM)) then Writeln(I);
 Readln;
end.
и неважно из скольких цифр состоит число
0
northener
пофигист широкого профиля
3418 / 2318 / 630
Регистрация: 15.07.2013
Сообщений: 13,700
23.09.2015, 01:44 #3
Цитата Сообщение от pbroger Посмотреть сообщение
Написал для чисел состоящих из 3 цифр. Подскажите как сделать для множества чисел?
Изучить тему "Множества в Паскале/Дельфи". И написать программу с учетом того, что в числе N может быть несколько одинаковых цифр не входящих в отображение числа М.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.09.2015, 01:44

Разработать программу, которая строит множество индексов тех элементов массива, которые образуют самую длинную возраста
program Project2; {$APPTYPE CONSOLE} uses SysUtils; const n=200; ...

Составить программу, выясняющую, сколько цифр числа M используется при написании числа N
Помогите, пожалуйста! Составить программу, выясняющую, сколько цифр числа M...

Написать программу, которая выводила бы на экран картинку
Написать программу, которая выводила бы на экран картинку. При этом каждый...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru