Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.