Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.12.2015, 19:01   #1
Ostapov
Пользователь
 
Регистрация: 30.09.2015
Сообщений: 22
По умолчанию Сформировать множество из чисел

задание: С клавиатуры вводятся натуральные числа <= 255. Признак конца ввода – 0. Сформировать множество из чисел, в записи которых встречаются все цифры, имеющиеся в записи числа n , но отсутствующие в записи числа m.

Код:
var
  mch: set of 0..255;
  mn,mm,mk:set of integer;
  n, m, o, i,k,f: integer;
begin
  mn:=[];
  mm:=[];
  mk:=[];
  write('введите число n:');
  readln(n);
  write('введите число m:');
  readln(m);
  mch := [0..255];
  
  if n in mch then
  while n > 0 do
  begin
    o := n mod 10;
    mn:=mn+[o];
    n := n div 10; 
  end
  else writeln('число n не принадлежит mch');
  
  if m in mch then
  while m > 0 do
  begin
    o := m mod 10;
    mm:=mm+[o];
    m := m div 10; 
  end
  else writeln('число m не принадлежит mch');
  
 mk:=mn-mm;
    
    
    readln(f);
    if (f in mk) and (f in mch) then
     writeln('+') 
            else
     writeln('-');
 
  
  writeln('цифры числа n');
 writeln(mn);
  writeln('цифры числа m');
 writeln(mm);
  writeln('цифры имеющиеся в записи числа n, но отсутствующие в записи числа m');
 writeln(mk);
  readln;
end.
как сформировать множество из чисел, которые состоят из цифр множества mk?
Ostapov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сформировать множество из элементов Edit? danek130995 Помощь студентам 2 30.11.2014 19:20
Сформировать другое множество Aimet Паскаль, Turbo Pascal, PascalABC.NET 1 16.06.2011 22:23
сформировать множество Aimet Паскаль, Turbo Pascal, PascalABC.NET 0 16.06.2011 21:37
Множество, содержащее натуральные числа из первой сотни. Сформировать новое множество из простых чисел первого множества Aimet Паскаль, Turbo Pascal, PascalABC.NET 3 16.06.2011 20:50
Сформировать и напечатать множество всех четных чисел , не входящих в массив. Makcumqa Помощь студентам 1 18.03.2010 05:59