Ввести натуральное число и определить, какие цифры встречаются несколько раз. С помощью repeat until
Answers & Comments
APALoff
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.
Answers & Comments
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.