4.На рисунке показана программа с использованием гироскопического датчика, изучи программный код
и обясни действие робота.
сейчас СОР​

// PascalABC.Net 3.2
begin
  var a:=ArrRandom(15,10,30).Select(x->x+0.1); Write('A='); a.Println;
  var b:=ArrRandom(12,10,30).Select(x->x+0.1); Write('B='); b.Println;
  var c:=a.Intersect(b).ToArray;
  Write('C='); c.Println;
  a:=a.Except(c).ToArray; Write('A новый='); a.Println;
  b:=b.Except(c).ToArray; Write('B новый='); b.Println
end.

Пример решения
A=15.1 25.1 29.1 24.1 16.1 29.1 18.1 13.1 10.1 12.1 10.1 13.1 14.1 18.1 24.1
B=24.1 10.1 23.1 15.1 13.1 16.1 22.1 21.1 21.1 28.1 26.1 29.1
C=15.1 29.1 24.1 16.1 13.1 10.1
A новый=25.1 18.1 12.1 14.1
B новый=23.1 22.1 21.1 28.1 26.1

Лично я подобные задачки решаю на компьютере. Тут требуется элементарная по простоте программка.

Например на бейсике она может выглядеть так:

s = 0

For x = 100 To 999

s = s + x

Next x

Print s

Если её запустить, получается результат: 494550.

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

И пришёл к интересным выводам.

Если наш диапазон чисел 900. Это числа: 100,101,...,999. Всего их 900. (999-100+1=900 )

Это 899 чисел (от 101 до 999) и 900 - е число - это число 100.

То если решать методом сумм по 2, то нужно 450 сложений.

Число 450 получается из числа 900: 900/2=450.

Теперь получается интересный эффект.

Если попробовать поделить полученный результат 494550 на наше число 450, то получается число 1099.

А что такое число 1099?

Это сумма чисел из нашего условия: 100+999=1099.

Получается, зная это с самого начала, не нужно было бы делать 450 сложений.

Нужно просто перемножить 450 на 1099 и получишь 494550.

Получается вот такая формула для решения данной задачки:

Summa =(100+999)*(999-100+1)/2=1099*450=494550.

Не знаю, насколько годится данная формула для решения других задачек (особенно для нечётного диапазона чисел), это ещё надо проверять, но результат получился интересный.