Var i,n:integer;
begin
n:=1;
i:=1;
write ('Числа не кратные 2 и 5: ');
while i<=8 do
begin
if (n mod 2 <> 0) and (n mod 5 <> 0) then
begin
write (n,' ');
i:=i+1;
end;
n:=n+1;
end;
end.
Сканер - С =200
Принтер - П =250
Монитор - М =450
П | С=450
П & М=40
С & М=50
П | С | М-?
Исходная формула:
П | С | М = П + С + М - (П & М) - (П & С) - (С&M) + (П & С & М)
П&C и П&C&M у нас нет.
Посмотрим на П, С, П|C
П+С=П|C, П и С не пересекаются, поскольку их сумма равна их объединению П&С=0, это значит что П&C&M тоже равно 0
Подставим все в формулу:
П | С | М= 250 + 200 + 450 - 40 - 0 - 50 + 0=810
Ответ: 810
Подробнее - на Znanija.com -
znanija.com/task/11231854#readmore
Всего в парке 420 деревьев 65 сосен
65-14=51елей, значит лиственниц тоже 51
51+12=,63 кипариса
420-65-51-51-66=190