Задачу удобно решать с помощью кругов Эйлера (см. прилагаемый файл).
К1+К2+К3 = 15000
К2 = 8000
К2+К3 = 12000
К1 = 15000-12000 = 3000
К1+К2 = 3000+8000 = 11000
Ответ: 11000
var
factorial3, factorial2, factorial1 : real;
B, Y, X, i, j, k:byte;
C:real;
begin
write('X = '); readln(X);
write('Y = '); readln(Y);
factorial1 := 1;
factorial2 := 1;
factorial3 := 1;
for i:=2 to x do
begin
factorial1 := factorial1 * i;
end;
for j:=2 to y do
begin
factorial2 := factorial2 * j;
end;
for k:=2 to (x-y) do
begin
factorial3 := factorial3 * k;
end;
C:= ( factorial3 / factorial2 )*factorial1 ;
writeln('C = ',C );
readln;
end.
Var
a:array [1..10] of integer;
i, n, p:integer;
begin
writeln('vvedite n');
readln(n);
p:=1;
writeln('vvedite massiv');
for i:=1 to n do
begin
readln(a[i]);
p:=p*a[i];
end;
writeln('proizvedenie elementov massiva = ',p);
end.