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

@pbroger · Регистрация: 22.09.2015

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

Пусть заданы два натуральных числа 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.

@VladWH · 23.09.2015, 01:15

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.

и неважно из скольких цифр состоит число

@northener · 23.09.2015, 01:44

Сообщение от pbroger

Написал для чисел состоящих из 3 цифр. Подскажите как сделать для множества чисел?

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

Новые блоги и статьи Все статьи Все блоги /
Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .	С днём независимости России! Hrethgir 13.06.2025 Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .	Лето вокруг. kumehtar 13.06.2025 Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .	Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев). Hrethgir 12.06.2025 Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений bytestream 12.06.2025 Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .	Dispose и Finalize в C# stackOverflow 12.06.2025 Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .	Повышаем производительность игры на Unity 6 с GPU Resident Drawer GameUnited 11.06.2025 Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .	Множества в Python py-thonny 11.06.2025 В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .	Работа с ccache/sccache в рамках C++ Loafer 11.06.2025 Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .

Опции темы