Заметим, что так как
собаки 120
кошки 270
кошки | собаки 390
то нет страниц, на которых ключевыми словами являются одновременно собаки и кошки (120+270=390; кошки и собаки = 0). Диаграмма Эйлера для такого случая показана на прилагаемом рисунке.
К1+К3 = 120
К2+К4 = 270
K3+К4+К5 = 100
К1+К2+К3+К4 = 390
K4 = 20
K3 = 10
К1+К2+К3+К4+К5 - ?
K5 = (K3+К4+К5)-K3-K4 = 100-10-20 = 70
К1+К2+К3+К4+К5 = 390+70 = 460
<u>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
Writeln('Различных элементов- ',a.Distinct.Count)
end.
<em>Пример</em>
n= 10
Вводите: 456 12 6432654 -35424 -323421341 0 6432654 634222 -234532 34
Различных элементов- 9
var
n,i,j,max,k: Integer;
lname, name: array [1..100000] of String;
y,g,a:array [1..100000] of longint;
begin
Read(n);
for i:=1 to n do
begin
read(lname[i]);
read (name[i]);
read(y[i],g[i]);
if (max<g[i]) or (i=1) then
max:=g[i];
end;
for i:=1 to n do
if g[i]=max then
begin
writeln(lname[i], ' ', name[i]);
j:=j+1;
a[j]:=i;
end;
for i:=1 to j do
write(g[a[i]], ' ');
end.
Вот я выполнил работу в Excele.
Прилагаю скриншот и книгу Excel