code. compile. run. debug. share.
var
inputStr:string;
i:byte;
c: Char;
allset, tempset, duoset: set of '0'..'9';
begin
allset := [];
tempset := [];
duoset := [];
readln(inputStr);
inputStr := inputStr +' ';
for i:= 1 to length(inputStr) do
begin
if ( inputStr[i] in ['0'..'9'] ) then
tempset := tempset + [inputStr[i]]
else
begin
duoset := duoset + allset * tempset;
allset := allset + tempset;
tempset := [];
end;
end;
for c := '0' to '9' do
if c in duoset then
writeln('Повторяется: ', c);
end.
Compiling Program...
Standard Input:
Interactive Console
Text
Program is not being debugged. Click "Debug" button to start program in debug mode.
| # | Function | File:Line |
|---|
| Variable | Value |
|---|
| Register | Value |
|---|
| Expression | Value |
|---|
| # | Description |
|---|