Ответ:
i_n, i_m = input().split()
n = []
m = []
res = ""
n_excluded = []
for n_i in range(int(i_n)):
x1, y1, x2, y2 = input().split()
n.append({
"x1": int(x1), "y1": int(y1),
"x2": int(x2), "y2": int(y2)
})
for m_i in range(int(i_m)):
x, y = input().split()
m.append({
"x": int(x), "y": int(y)
})
for mm in m:
jar_num = 1
collision = False
for nn in n:
if jar_num not in n_excluded and nn['x1'] <= mm['x'] <= nn['x2'] and nn['y1'] <= mm['y'] <= nn['y2']:
collision = True
n_excluded.append(jar_num)
break
jar_num += 1
if collision:
res += " " + str(jar_num)
else:
res += " -1"
print(res)
Объяснение:
Это решение подходит только для E1. В E2 - ошибка Runtime Exception
var
a, min: integer;
begin
min := 1000;
repeat
readln(a);
if(a < min) and (a >= 0) then min := a;
until(a < 0);
writeln('Минимальное число: ', min);
end.
Var
n,s,k:integer;
begin
Write('n='); Read(n);
s:=0; k:=0;
while n>0 do begin
s:=s+n mod 10;
n:=n div 10;
k:=k+1
end;
Writeln('Разрядность ',k,', сумма цифр ',s)
end.
<u>Пример</u>
n=142321
Разрядность 6, сумма цифр 13
Задание 6:
1. B
2. D
3. A
4. C
Задание 7:
program vibory;
var a:integer;
begin
readln(a);
if a>=18 then writeln('Вы имеете право голосовать')
else writeln('Вы не имеете право голосовать');
end.
1)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] div 100 = 0)and(a[i] div 10 > 0) then
write(a[i], ' ');
2)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] mod 2 = 0) then
write(a[i], ' ');
3)
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] mod 2 = 0)then
a[i] := a[i]*2
else
a[i] := a[i] - 1;
for i := 1 to n do
wirte(a[i]);
