15 учеников14 любят ходить в кинотеатр. триллер- 6 учеников, фэнтези- 5 учеников,комедию- 10 1 ученик смотрит только триллеры,2 ученика смотрят только фэнтези, 5 учеников смотрят только комедии 3 ученика смотрят и триллеры и комедии1 ученик –и фэнтези, и комедиириллеры и фэнтези не смотрит ни один ученик
1 только триллеры 2 только фэнтези5 только комедии 15 - 1 - 8 = 6 6 человек
5 триллер3 фэнтези5 комедии 1 ученик –и фэнтези, и комедии т.е.осталось 5 триллер2 фэнтези4 комедии 3 ученика смотрят и триллеры и комедиит.е. осталось 2 триллер2 фэнтези 1 комедии т.е. получается 1 смотрит все1 смотрит триллер1 смотрит фэнтези+1+3и + те 8 учеников которые смотрят1 только триллеры 2 только фэнтези5 только комедии
Var x,nb,nm,z,xm,xb : longint; h,g,k : integer; begin writeln('Введите количество больших коробок.'); readln(nb); writeln('Введите количество маленьких коробок.'); readln(nm); writeln('Введите количество товара в больших коробках.'); readln(xb); writeln('Введите количество товара в маленьких коробках.'); readln(xm); writeln('Сколько товара помещается в вагон?'); readln(x); z:= nb*xb +nm*xm; if z <= x then writeln('Все изделия поместятся в один вагон') else begin h := z div x; writeln('количество вагонов для погрузки всех товаров = ',h); end; g:= z div nb;k:= z div nm; writeln ('освободиться ',g,' больших или ',k,' маленьких коробок'); end.
это все команды, которые исполнитель умеет выполнять.