function Random_Range(x, y : Integer) : Integer;
begin
Random_Range := Random(y) - x;
end;
var
i : Integer;
begin
Randomize;
Writeln( Random_Range(0, 15) ); // [0; 15)
Writeln( Random_Range(0, 16) ); //[0; 15]
Writeln( Random_Range(15, 30) ); //[-15; 15)
Writeln( Random_Range(-10, 5) ); //[10; 15)
ReadLn;
end.
1, потому что без него невозможна работа на компьютере
m - массив элементов
n - количество элементов в множестве (длина массива)
e - конечный массив
e=[]
m=[0, 1, 2, 3, 4]
n=len(m)
k=2
for i in range (n**k):
j=i
c=[]
while j>0:
c.append(m[j%n])
j//=n
c=c+[m[0]]*(k-len(c))
e.append(c)
print(e)
13000тысячи 600сотни 80десятки 4единицы
101010102-2528+716=101008290