Драконы, как известно, воруют золото и драгоценности у людей, у эльфов, у гномов – где и когда только могут – и стерегут свою добычу до конца жизни (а живут драконы фактически вечно, если только их не убьют), но никогда не попользуются даже самым дешевым колечком. Сами они сделать не ровно ничего, даже не могут укрепить какую-нибудь разболтавшуюся чешуйку в своей броне. Напишите программу, которая определит, заинтересуется ли дракон тем, что перечислено в строке. Если там есть золото в любой форме (достаточно проверить корень золот) или то слово, которое будет введено во второй строке, то точно заинтересуется. Если таких строк меньше половины всех строк для проверки, то надо сообщить ОСТАНЕТСЯ ГНОМАМ, если нет, то ЗАБЕРЕТ ДРАКОН. Формат ввода Вводится число n – сколько строк будет введено. Затем строка – слово для проверки. Затем остальные строки – (n - 1 Формат вывода В первой строке вывести, сколько процентов от n составляют интересные драконам строки. Затем вывести ОСТАНЕТСЯ ГНОМАМ или ЗАБЕРЕТ ДРАКОН. ПИТОН

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

var a: array[0..100,0..100] of integer;

 

n, m, i, j, max, col: integer;

 

 

 

begin

 

  read(n);

 

  read(m);  

 

  for i: =0 to n-1 do

 

  for j: =0 to m-1 do

 

  begin

 

  read(a[i,j]);

 

  if max< a[i,j] then max: =a[i,j];

 

  end;

 

  for i: =0 to n-1 do

 

  for j: =0 to m-1 do  

 

  if max=a[i,j] then begin inc(col); break; end;

 

  writeln(col);

 

  for i: =0 to n-1 do

 

  for j: =0 to m-1 do  

 

  if max=a[i,j] then begin write(i, ' '); break; end;    

 

end.