Синформатикой! для каждого понятия нужно записать противоположное и протеворечивое понятия: громкая речь высокий рост старый человек свежая информация кислая ягода темное платье веселый человек х< 5 !

громкая речь-тихая речьвысокий рост-низкий ростстарый человек-молодой человексвежая информация- старая информациякислая ягода-сладкая ягодатёмное платье-светлое платье весёлый человек- грустный человеквроде бы так. или противоречивые понятия это что то другое, а не антонимы?  

Пусть в семеричной сс число записывается в виде xxyy, тогда оно равно x * 7^3 + x * 7^2 + y * 7^1 + y * 7^0 = 49x * 8 + y * 8 = (49x + y) * 8 это число должно быть полным квадратом и 1 < = x < = 6, 0  < = y < = 6. число - полный квадрат, делится на 8 -> делится на 16 -> 49x + y делится на 2 -> x и y одинаковой четности. 1) x = 2x, y = 2y;   1 < = x < = 3,   0 < = y < = 3. 49x + y - полный квадрат. - x = 1: 49 + y - п.к., y = 0 - x = 2: 98 + y - п.к., y = 2 (не подходит, x и y ) - x = 3: 147 + y - п.к., y > 3 2) x = 2x + 1, y = 2y + 1;   0 < = x < = 2, 0 < = y < = 2. 49x + y + 25 - полный квадрат - x = 0: 25 + y  - п.к., y = 0    (не подходит, x и y ) - x = 1: 74 + y - п.к., y > 2 - x = 2: 123 + y - п.к., y > 2 ответ: 2200 (в десятичной сс это 784 = 28^2)

Var a: array[1..100, 1..100] of integer;   sum,k,i,n1,n2,j: integer;   begin  sum: =0;   k: =0;   writeln('введите количество строк');   readln(n1);   writeln('введите количество столбцов');   readln(n2);   writeln('введите элементы массива');   for i: =1 to n1 do  for j: =1 to n2 do begin read(a[i,j]);   sum: =sum+a[i,j];   k: =k+1;   end;   writeln('среднее арифметическое всех элементов массива = ',sum/k);   end.