// PascalABC.NET
begin
// 1
var s11 := SeqRandom(100, 10, 99).Sum;
var s12 := ArrRandom(100, 10, 99).Sum;
case Sign(s11 - s12) of
-1: Println('Сумма второго массива больше');
0: Println('Суммы равны');
else
Println('Сумма первого массива больше')
end;
// 2
var s21 := SeqRandom(1000, -9, 9).Sum;
var s22 := ArrRandom(1000, -9, 9).Sum;
var s23 := ArrRandom(1000, -9, 9).Sum;
if s21 > s22 then
Swap(s21, s22);
if s22 > s23 then
begin
Swap(s22, s23);
if s21 > s22 then
Swap(s21, s22)
end;
Println(s21, s22, s23);
// 3
var a := ArrRandom(50, -99, 99);
a.Println;
var s31 := a.Where(p -> p > 30);
Print('Количество', s31.Count, ' сумма', s31.Sum)
end.
Человечество начало использовать простые вычислительные средства тысячи лет назад. Наиболее распространенным типом расчета было определение количества товаров, используемых в биржевой торговле. Простейшим решением является использование весовых эквивалентов конвертируемого продукта, поскольку нет необходимости рассчитывать количество вещества, содержащегося в продукте. Для этих целей использовались простые бальзамические сундуки, которые были первым устройством обнаружения массы.
Принцип эквивалентности также использовался в так называемой «тюрьме». Чтобы вычислить вещество, необходимо было стимулировать кости в инструменте.
Благодаря изобретению зубчатых колец расчеты усложнились. Механизм предвидения, обнаруженный в начале 20-го века (найденный в древнем древнем корабле 1-го века до нашей эры), мог показать образцы планет. По оценкам, этот инструмент использовался для религиозных целей, таких как расчеты по календарю, предсказание даты и луны, заселение и сбор урожая. Для расчетов использовалось более 30 бронзовых колец и несколько циферблатов. Дифференциальный транспорт использовался для расчета фаз Луны (ученые предположили, что этот подход был изобретен в XVI веке). После краха античной культуры такие инструменты исчезли. Сложность потребовала создания такого механизма для человечества на 1,5 года.