Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
pbroger
0 / 0 / 0
Регистрация: 22.09.2015
Сообщений: 1
#1

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

22.09.2015, 23:42. Просмотров 321. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составить программу, которая выводила множество цифр, входящих в изображение числа N, которые не входят в изоб (Delphi):

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

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

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

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

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

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

2
VladWH
239 / 189 / 65
Регистрация: 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
пофигист широкого профиля
3243 / 2295 / 496
Регистрация: 15.07.2013
Сообщений: 13,529
23.09.2015, 01:44 #3
Цитата Сообщение от pbroger Посмотреть сообщение
Написал для чисел состоящих из 3 цифр. Подскажите как сделать для множества чисел?
Изучить тему "Множества в Паскале/Дельфи". И написать программу с учетом того, что в числе N может быть несколько одинаковых цифр не входящих в отображение числа М.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.09.2015, 01:44
Привет! Вот еще темы с ответами:

Составить программу выясняющую, можно из букв входящих в слова Х, составить слово Y - Delphi
Если у кого есть такая лаба, буду искренни благодарен за нее:) Ну или может кто нибудь может сделать ее, если для него это не проблема) ...

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

Образовать множество из нечетных цифр, входящих в дробную часть числа и не входящих в целую - C#
С клавиатуры в режиме диалога вводится вещественное число. Образовать множество из нечетных цифр, входящих в дробную часть числа и не...

Составить программу, которая бы выводила целые числа от 50 до 100 - Turbo Pascal
1)составить программу,которая бы выводила целые числа от 50 до 100 2)составить программу вычисления произведения четных цифр от10 до 100 ...


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

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

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