Правильный ответ Б потому как 500кбайт это 4096000 бит, и если поделить выйедт 32 сек
Добил её)
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
var x, y, a, b: longint;
begin
var ax:=new List<integer>;
for var i:=10000 to 99999 do begin
x:=i;
while x > 0 do begin
y := x mod 10;
if y >2 then a := a + 1;
if y < 8 then b := b + 1;
x := x div 10;
end;
If (a=3) and (b=4) then begin ax.add(i); end;
a:=0; b:=0;
end;
Println('Минимальное x->',ax.min); Println('Максимальное x->',ax.max);
end.
Результат:
Минимальное x-> 10338
Максимальное x-> 97722
1-ое число: 1
2-ое число: 10
3-е число: 11
4-ое число: 100
5-ое число: 101
6-ое число: 110
7-ое число: 111
8-ое число: 1000
9-ое число: 1001
10-ое число: 1010
11-ое число: 1011
12-ое число: 1100
13-ое число: 1101
14-ое число: 1110
15-ое число: 1111
16-ое число: 10000
17-ое число: 10001
18-ое число: 10010
19-ое число: 10<span>011</span>
20-ое число: 10100