Question

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

Answer 1

Var a : Integer;
   s : Set of Byte;
Begin
  s:=[];
  Readln(a);
  Repeat
   If (a mod 10) in s then Write(a mod 10:2) else Include(s,a mod 10);
   a:=a div 10;
  Until a=0; 
  Writeln;
end.