Старшеклассники заполняли анкету с вопросами об экзаменах по выбору. оказалось, что выбрали они информатику, и обществознание. в классе 38 учеников. обществознание выбрал 21 ученик, причем трое из них выбрали еще и информатику, а шестеро-еще и . один ученик выбрал все три предмета. всего информатику выбрали 13 учеников, пятеро из которых указали в анкете два предмета. надо определить, сколько же учеников выбрали .

Решим через круги Эйлера.

Общество = c = d + f + e = 21.
Информатика = g + f + d = 13.
Все три предмета = f = 1.
Общество + информатика = d + f = 3.
Общество + физика = f + e = 6.
Физика = g + f + e - ?
d = (d+f) - f = 2.
g + f = (g+f+d) - d = 13 - 2 = 11.
e = (f+e) - f = 6 - 1 = 5.
Физика = g + f + e = 11 + 5 = 16.
ответ: 16.

использовать Чертежник

алг

нач

опустить перо

сместиться на вектор (0,10)

сместиться на вектор (4,0)

сместиться на вектор (1,-1)

сместиться на вектор (0,-2)

сместиться на вектор (-3,-2)

сместиться на вектор (3,-2)

сместиться на вектор (0,-2)

сместиться на вектор (-1,-1)

сместиться на вектор (-4,0)

поднять перо

сместиться на вектор (6,0)

опустить перо

сместиться на вектор (4,10)

сместиться на вектор (4,-10)

поднять перо

сместиться на вектор (-2,5)

опустить перо

сместиться на вектор (-4,0)

поднять перо

сместиться на вектор (7,-5)

опустить перо

сместиться на вектор (0,2)

сместиться на вектор (8,0)

сместиться на вектор (0,-2)

поднять перо

сместиться на вектор (-2,2)

опустить перо

сместиться на вектор (0,8)

сместиться на вектор (-4,0)

сместиться на вектор (0,-8)

поднять перо

сместиться на вектор (7,-2)

опустить перо

сместиться на вектор (0,10)

поднять перо

сместиться на вектор (0,-10)

опустить перо

сместиться на вектор (5,10)

сместиться на вектор (0,-10)

поднять перо

сместиться на вектор (1,0)

опустить перо

сместиться на вектор (0,10)

сместиться на вектор (3,-7)

сместиться на вектор (3,7)

сместиться на вектор (0,-10)

поднять перо

кон

uses crt;

const n=10;

var a: array[1..n] of integer;          

 i,j,k: byte; c: integer;

begin  

randomize;  

clrscr;  

writeln('исходный массив: ');  

for i:=1 to n do   begin    

a[i]:=random(19)-9;  

 write(a[i]:3);   end;  writeln;

 k:=0;  for i:=1 to n-1 do   f

or j:=i+1 to n do    if a[i]>a[j] then     begin      

c:=a[i];      

a[i]:=a[j];    

 a[j]:=c;      

inc(k);    

end;  

writeln('результат сортировки: ');

 for i:=1 to n do   write(a[i]:3);  

writeln;  

writeln('кол-во перестановок = ',k);

end.