Ввести натуральное
число и определить, какие цифры встречаются несколько раз.

    Пример:    Введите число >= 0:
 
2323                                                            
 Повторяются:
 2,  3 

  • var
      a, c : integer;
      con, rep : array [0..9] of boolean;
    begin
      read (a);
      while a > 0 do
      begin
        c := a mod 10;
        a := a div 10;
        if not con[c] then con[c] := true
          else rep[c] := true;
      end;
      for c := 0 to 9 do
        if rep[c] then write (c, ' ');
    end.



See also: