Question

Дано m чисел найти цифры которые есть в записи каждого из m чисел( pascal ABC)

Answer 1

Var
  i, j, m, n: integer;
  a, b: array[0..9] of boolean;
 
begin
  for i := 0 to 9 do a[i] := true;
  write('Введите количество чисел: ');
  read(m);
  write('Введите числа: ');
  for i := 1 to m do
  begin
    for j := 0 to 9 do b[j] := false;
    read(n);
    if n = 0 then a[0] := true;
    while n <> 0 do
    begin
      b[n mod 10] := true;
      n := n div 10;
    end;
    for j := 0 to 9 do a[j] := a[j] and b[j];
  end;
  for i := 0 to 9 do if a[i] then write(i, ' ');
end.

Answer 2

Для решения данной задачи на поиске цифр, которые есть в записи каждого из m чисел, вам потребуется использовать язык программирования Pascal ABC. Вот пример решения:

program FindCommonDigits;
var
  m, i, j, num, digit, count: integer;
  digits: array[0..9] of boolean;
begin
  // Ввод количества чисел
  write('Введите количество чисел (m): ');
  readln(m);

// Инициализация массива цифр
  for digit := 0 to 9 do
    digits[digit] := true;

// Поиск общих цифр
  for i := 1 to m do
  begin
    write('Введите число ', i, ': ');
    readln(num);

// Проверка каждой цифры числа
    while num > 0 do
    begin
      digit := num mod 10;
      digits[digit] := digits[digit] and true;
      num := num div 10;
    end;
  end;

// Вывод общих цифр
  writeln('Общие цифры:');
  count := 0;
  for digit := 0 to 9 do
  begin
    if digits[digit] then
    begin
      write(digit, ' ');
      count := count + 1;
    end;
  end;

// Вывод количества общих цифр
  writeln;
  writeln('Количество общих цифр: ', count);
end.

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

Примечание: Пожалуйста, учтите, что данный код предоставлен в качестве примера и может потребовать доработки в зависимости от ваших конкретных требований и среды разработки.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать их.