из цисел выбрат павторение Опции

[maksimla]

нада из числа выбрать все повторение например число 16771 и написать на экране 6 повторы 77 и 11 ненужны
9966 написать на экране 0
ришить без массивов
мне помогите и объясните но решение недовать пака я не придумают или срок некончится в воскрисение паследний день мне надо будет здовать
вот что я зделал

program m;
var a:longint;
function cislo(n:longint):longint;
begin
while n>0  do
begin
 cislo:= n mod 10;{число разделяю на цифры}
 n:=n div 10;
 writeln(cislo);
 end;
 end;
 begin
 writeln('vvedite');
 readln(a);
 cislo(a);
 readln;
 end.

асталась мне эти цифры сравнить все со веми и записат ниповторяющийся цифры что подскажете

Сообщение отредактировано: Lapp - 24.01.2008 17:23

[klem4]

вот что вышло навcкидку:

uses crt;

var
  dig_set: set of Byte = [];

procedure GetDigits(const n: Integer);
var
  temp: Integer;
  digit: Byte;
begin
  temp := n;

  while temp > 0 do begin
    digit := temp mod 10;

    if not (digit in dig_set) then
      include(dig_set, digit)
    else
      exclude(dig_set, digit);

    temp := temp div 10;
  end;
end;

procedure GetSolve(n: Integer);
var
  temp: Byte;
begin
  if n > 0 then begin
    temp := n mod 10;
    if n div 10 > 0 then GetSolve(n div 10);
  end;

  if temp in dig_set then
    write(temp)
end;

var
  n: Integer;
begin
  clrscr;

  n := 19601;


  GetDigits(n);

  if dig_set = [] then
    write('0')
  else
    GetSolve(n);

  readln;
end.