var ch,i,j:integer;
a: array[1..4] of integer;
begin
for ch:=1000 to 9999 do begin
for i:=1 to 4 do
for j:=2 to 4-i do
a[1]:= ch div 1000;
a[2]:= (ch div 100) mod 10;
a[3]:= (ch div 10) mod 100;
a[4]:= ch mod 10;
If a[i] = a[j] then begin
write(ch,' ');
end; end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Найдите четырехзначное числа в которых есть две одинаковых цифры Python
var ch,i,j:integer;
a: array[1..4] of integer;
begin
for ch:=1000 to 9999 do begin
for i:=1 to 4 do
for j:=2 to 4-i do
a[1]:= ch div 1000;
a[2]:= (ch div 100) mod 10;
a[3]:= (ch div 10) mod 100;
a[4]:= ch mod 10;
If a[i] = a[j] then begin
write(ch,' ');
end; end;
end.