4. Определите причину, и дополните предложение Для соревнования кегель-ринг нужен ультразвуковой датчик, потому что ……..

Для соревнования движение робота по линии нужен датчик цвета, потому что ……..

Для соревнования робо-сумо нужен датчик движения, потому что ……..
Для соревнования робо-сумо нужен гироскопический датчик, потому что ……..

Program Djonny1981;
uses crt;
const
  m=5;
var
  a: array[1..m,1..m] of integer;
  i, j: integer;
  sum: integer;
begin
  randomize;
  sum:=0;
  for i:=1 to m do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(101)-50;
          write(a[i,j]:5);
        end;
        writeln();
    end;
  for i:=1 to m do
    for j:=1 to m do
      if j mod 2 = 0 then {вот здесь проверка, чётный ли столбец}
         sum := sum + a[i,j];
  writeln('Сумма элементов чётных столбцов равна ',sum);
  if sum>0 then
      for i:=1 to m do
        for j:=1 to m do
          if i mod 2 = 1 then
            a[i,j]:=a[i,j]*a[i,j]
    else
      for i:=1 to m do
        a[m-i+1,i]:=a[m-i+1,i]+2;
  for i:=1 to m do
    begin
      for j:=1 to m do
        write(a[i,j]:5);
      writeln();
    end;
end.

//Pascal
//Первый вариант
var a, b:integer;
BEGIN
  write('Введите первое число = '); readln(a);
  write('Введите второе число = '); readln(b);
  writeln(a-(-b));
END.

//---------------------------------------
//Второй вариант
function recSumBits(a, b:integer):integer;
var o1, o2: integer;
begin
  if b = 0 then recSumBits := a
  else
  begin
    o1 := a xor b;
    o2 := (a and b) shl 1;
    recSumBits := recSumBits(o1, o2);
  end;
end;

var a, b: integer;
BEGIN
  write('Введите первое число = '); readln(a);
  write('Введите второе число = '); readln(b);
  writeln(recSumBits(a, b));
  readln;
END.