Сделать это в pascal пусть дан фрагмент программы. опишите функцию sum(a, si, s2), вычи¬сляющую сумму тех элементов матрицы а, номера строк и номера столб¬цов которых принадлежат соответственно непустым множествам s1 и s2 типа num. const n = 10; type number = 1..n; matrix = array [number, number] of real; num = set of number; var a : matrix; s1, s2 : num;

Традиционнный Pascal:
function Sum(var M:matrix;n:integer;s1,s2:num):real;
var
  i,j:number;
  s:real;
begin
  s:=0;
  for i:=1 to n do
    if i in s1 then
      for j:=1 to n do
        if j in s2 then s:=s+M[i,j];
  Sum:=s
end;

В PascalABC.Net можно написать короче:
function Sum(var M:matrix;n:integer;s1,s2:num):real;
var
  i,j:number;
begin
  result:=0;
  foreach i in s1 do
    foreach j in s2 do result:=result+M[i,j]
end;

1) На старом механическом вычислительном устройстве – арифмометре – можно было умножать восьмизначные числа на четырехзначные. - 1
Да, можно было.
2) Билл Гейтс написал свою первую программу на языке программирования Basic в 13 лет, и она называлась «Сапёр». - 0.
Да, в 13 лет и на Бейсике, но это были крестики-нолики.
3) Символом операционной системы Linux является кролик, потому что в детстве разработчика этой системы в зоопарке укусило именно это
животное. - 0. Символ Linux - пингвин Lilo.
4) В Швейцарии установлен один из дата-центров с множеством серверов, который подогревает воду в небольшом озере. - 1. Есть такой.
5) ФБР считает, что Одноклассники – лучшая площадка для общения террористов. - 0. ФБР считает, что это Твиттер.

Число 1010 в двоичной системе = 10 в десятичной системе.

1) 1000=120+110. Складываем в столбик.

 120

 110

1000

Во втором разряде справа 2+1 дало в результате 0. Но 2+1=3 в десятичной системе, следовательно система счисления троичная.

2) Если в мешке только красные яблоки, то вероятность вытащить красное яблоко равна единице и сообщение о том, какого цвета вытащенное яблоко не содержит никакой новой информации т.е. количество информации 0 бит. А если там есть яблоки другого цвета. то информации для решения задачи недостаточно.

3) Диапазон А1:С4 содержит четыре строки (1-4) и три колонки (А-С). Итого 4х3=12 ячеек.

Объяснение: