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

1

Ответы и объяснения

2013-10-16T17:17:56+04:00
Var a: string;
    i, j: integer;
    c: char;
begin
     readln(i);
     a := inttostr(i);
     for i := 1 to length(a) do
     begin
          c := a[i];
          for j := 1 to length(a) do
          begin
               if a[i+j] = c then writeln(a[j+i]);
          end;
     end;
end.

Вот такие пироги х)
А как будет через repeat и until??
Не знааю ._.