Это тактильная информация и, возможно, визуальная
//PascalABC.Net 3.1 сборка 1200
const
n = 15;
begin
var a := ArrRandom(n, 0, 50);
var b := ArrRandom(n, 0, 50);
a.Println;
b.Println;
a := a.Concat(b).ToArray;
a.Println;
a.Sort;
a := a.Slice(0, 1, n);
a.Println;
end.
<span>порт или портатив(в случае с компьютером)</span>
Ответ: 699
Код для проверки(Pascal):
var
x, a, b, c,i,min: integer;
begin
min:=699;
for i:=100 to 10000 do
begin
a := i mod 10;
b := i div 10 mod 10;
c := i div 100 mod 10;
If (a + b + c=24) and (i<min) then min:=i;
end;
Writeln(min);
end.