var
n:integer;
begin
write('Сколько человек? ');
readln(n);
var a:=ArrRandom(n,150,190).Print;
end.
Def pseudo_list():
for i in range(N):
yield (i*9876+1024)%1000
N = 10**6 + 1
A = pseudo_list()
count = [0] * 1000
for x in A:
count[x] += 1
x = 0
sum_count = count[0]
while sum_count <= N//2:
x += 1
<span> sum_count += count[x] </span>
<span>print(x)
Ответ: 496</span>
Нужно сравнить стороны прямоугольников и если обе стороны первого прямоугольрика больше обеих сторон второго, то второй можно поместить в первый
Program z_1;
var i,n,fact:longint;
begin
writeln('введите число от 1 до 10);
read(n);
fact:=1;
if (n>=1) and (n<=10) then
for i:=1 ti n do
fact:=fact*i
else
write('число не входить в диапозон от 1 до 10');
end.
Первое берем две ячейки например a,b вводим в а и б числа потом сравниваем с помощью команды if