решить в Basic - Составить программу, определяющую сумму цифр числа .

1)У 60 человек есть кошка и собака.

у 20 - кошка и птичка

у 30 - собака и птичка

У 10 человек есть и кошка, и собака, и птичка. 1.1

Отсюда делаем вывод, что набор пар животных 60, 20 и 30 три раза посчитали тех у кого одновременно все эти трое видов животных есть.

теперь считаем:

у 60-10=50 есть только кошка и собака(без птички!) 1.2

у 20-10=10 есть только кошка и птичка(без собаки!) 1.3

у 30-10=20 есть только собака и птичка(без кошки!) 1.4

2)у 150 человек есть кошка

у 130 - собака

у 50 - птичка.

Это у кого возможно по два-три животных посчитаем, нужно их почистить:

2.1) уберем у кошколюбов тех у кого по 2-3 вида животных:

это 1.1, 1.2, 1.3 множества: 150-10-50-10=80 есть только кошки

2.2) уберем у собаководов, тех у кого по 2-3 вида животных:

это 1.1, 1.2, 1.4 множества: 130-10-50-20=50 есть только собаки.

2.3)  уберем у птицефилов, тех у кого по 2-3 вида животных:

это 1.1, 1.3, 1.4 множества: 50-10-10-20=10 есть только птицы.

3) Теперь можем сложить чистую информацию:

чистые(не пересекающиеся с остальными) множества:

не забудем про 4.1) У 70 человек вообще нет домашнего животного

1.1, 1.2, 1.3, 1.4, 2.1, 2.2, 2.3, 3.1

10+50+10+20+80+50+10+70=300

{Attention! Это самое отвратное моё решение на Знаниях. Запаситесь валерьянкой перед прочтением кода}
//Pascal ABC.NET 3.1 сборка 1219

Type
 ty=record
 valu:integer;
 count:integer;
end;

Const
 n=3;

 Var
 ma:array[1..n,1..n] of integer;
 tyar:array of ty;
 se:set of integer;
 i,j,z,k,MaxCount:integer;
begin
 randomize;
 se:=[];
 k:=0;
 MaxCount:=integer.MinValue;
 writeln('Matrix:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     ma[i,j]:=random(-10,10);
     write(ma[i,j]:4);
     if not(ma[i,j] in se) then
       begin
       inc(k);
       setlength(tyar,k+1);
       tyar[k].valu:=ma[i,j];
       tyar[k].count:=1;
       se:=se+[ma[i,j]];
      end
     else
       for z:=1 to k do {O(n^3) в худшем случае - нормальные люди ненавидят это}
        if tyar[z].valu=ma[i,j] then
         begin
          inc(tyar[z].count);
          break;
         end;
    end;
   writeln;
  end;
  for i:=1 to k do
  if MaxCount<tyar[i].count then MaxCount:=tyar[i].count;
  writeln('Res:');
  for i:=1 to k do  if tyar[i].count=MaxCount then writeln(tyar[i].valu);
end.

Пример работы программы:
Matrix:
  -7  -2  10
   8   0  -2
   6  10   1
Res:
-2
10