франциск 1
Просветленный
(23853)
4 года назад
var
a: set of byte;
k: byte;
n: integer;
f: boolean;
begin
a := [];
f := true;
readln(n);
repeat
k := n mod 10;
if k in a then
begin
f := false;
write(' повтор', k, ' ');
end;
include(a, k);
n := n div 10
until n = 0;
if f then writeln('Повторов нет');
end.