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

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.

n = 64

2^i = n

2^i = 64

i = 6 бит

ответ. 6 бит.

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.