Напиши в левом окне, какие три цепочки букв равной длины нужно склеить, чтобы в результате получилось слово канарейка. .

Ака- нар- ейк  я думаю

Відповідь:

Гигантский робот-баскетболист японской корпорации Toyota Industries Cue 3 попал в Книгу рекордов Гиннесса, сделав более двух тысяч попаданий в кольцо подряд.

 

В апреле 2019 года Toyota Industries представили робота-баскетболиста по имени Cue 3, который использует десятки сенсоров, чтобы рассчитать правильные углы и силу толчка, чтобы выполнить безупречный трёхочковый бросок. Инфракрасные датчики формируют в системе робота трёхмерное изображение, с которого Cue 3 определяет расстояние до корзины и её высоту. Впоследствии его суставы адаптируются под запрограммированный угол при моторчиков, которые также регулируют скорость и направление движения рук и ног робота. Система запоминать все необходимые параметры и повторять идентичное движение с каждым броском.

 

Имя робота Cue 3 отображает идею сотрудников компании, согласно которой технологии всегда будут рядом с нами человечеству достигать желаемого. Японцы считают, что ключевая роль успеха в развитии технологий вовсе не в разнообразии вариантов их применения. Куда важнее то, что каждый шаг вперёд мотивирует всех причастных стремиться к большему и быть открытыми к новым идеям и вызовам. В случае с Cue 3 инженеры решили отойти от привычного облика их прежних роботов, как правило, выполненных из белого металла или пластика. Потому кожа баскетболиста напоминает панцирь броненосца, состоящий из множества костяных пластин.

Пояснення:

1) var a: array[1..30] of integer; max,i: integer; begin   for i: =1 to 30 do readln(a[i]);   max: =a[15];   for i: =15 to 30 do     if a[i]> max then max: =a[i];   writeln('max=',max); end. 2) var a: array[1..30] of integer; max,i: integer; begin   for i: =1 to 30 do readln(a[i]);   max: =a[1];   for i: =1 to 30 do     if a[i]> max then max: =a[i];   writeln('max=',max);   for i: =1 to 30 do     if (a[i]=max)and((i mod 2)=0) then write(i,', '); end. 3) var a: array[1..30] of integer; max,i,k: integer; begin   for i: =1 to 30 do readln(a[i]);   max: =a[1];   for i: =1 to 30 do     if a[i]> max then max: =a[i];   writeln('max=',max);   k: =0;   for i: =1 to 30 do     if (a[i]=max)and((i mod 2)=0) then k: =k+1;   writeln('ответ: ',k); end.