М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sddssddd
sddssddd
04.01.2023 07:41 •  Информатика

Заполните таблицу ссылки]
назначение группа-
элементов-​

👇
Ответ:
agnesa9890
agnesa9890
04.01.2023

Как то так. Должно быть правильно

Я сама сейчас на этой теме


Заполните таблицу ссылки] назначение группа- элементов-​
Заполните таблицу ссылки] назначение группа- элементов-​
4,4(77 оценок)
Открыть все ответы
Ответ:
DC2004
DC2004
04.01.2023

Объяснение:

h,w = int(input().split())

c,p = int(input().split())

s = []

roadm = []

parks = []

cp = []

for i in range(1, h+1):

 for j in range(1, w+1):

   s.append([i,j])

for k in s:

 if k[0]==1 or k[1]==1:

    roadm.append(s.pop(k))

for t in s:

 if t[0] == 2 or t[1] == 2:

   cp.append(s.pop(t))

for y in s:  

 if y[0] == (f[0]+1 for f in cp) and y[1] == (f[1]+1 for f in cp) and y[0] == (f[0]-1 for f in cp) and y[1] == (f[1]-1 for f in cp):

   parks.append(s.pop(y))

a = []

b = []

for o in s:

 a.append(o[0])

 b.append(o[1])

print(min(a))

print(min(b))

4,8(90 оценок)
Ответ:
ahmetovalim
ahmetovalim
04.01.2023
Uses graphabc; 
var 
  i, j: integer; 
  ar: array[1..10]of integer; 
  b: boolean; 

 label l1; 
 begin 
  b := false; 
  for i := 1 to 10 do ar[i] := random(10, 300); 
  l1: 
  b := false; 
  for i := 1 to 10 do 
     for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j) 
      then 
      begin 
      b := true;
      ar[i] := random(30, 300); 
      end; 
  if b = true then goto l1; 
  window.Init(0, 0, 800, 600, clwhite); 
  window.IsFixedSize := true; 
  randomize; 
  lockdrawing; 
  pen.Width := 5; 
  for i := 1 to 10 do 
  begin 
    pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255));              drawcircle(400, 300, ar[i]); 
    redraw;
end; 
end.
4,8(74 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ