Ввести натуральное число и определить, какие цифры встречаются несколько раз. с 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.

 

 

 

крик

скорость в мб/c 100/8 = 12,5 мб/c

переведем в кб/с = 12,5 * 1024 =   12800 кб/с

тогда время передачи будет равно t= 100/12800 = 0,0078125 секунд