3 Решите задачи с использованием кругов Эйлера (нарисуйте их в графическом редакторе).
1. Об учащихся школы, участвовавших в физико-математическом
конкурсе, известно, что 7 из них решили задачи и по матема-
тике, и по физике, 11 задачи по математике, 9 задачи по
физике. Сколько учащихся принимали участие в конкурсе?
2. В киоске около школы продается мороженое двух видов;
«Эскимо» и «Пломбир». После уроков 24 семиклассника купили
мороженое. При этом 15 из них выбрали «Эскимо», а 17 — «Плом-
бир». Сколько семиклассников купили мороженое двух видов?
3*. Из 100 туристов, отправляющихся в путешествие, не-
мецким языком владеют 30 человек, английским 28, фран-
цузским
42. Английским и немецким одновременно владеют
8 человек, английским и французским 10, немецким и фран-
цузским 5, всеми тремя языками 3. Сколько туристов не
владеют ни одним языком?​

компьютер входит в состав бытовой техники.

компьютер является надсистемой для компьтерных программ.

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('індексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.

1)

var

a: array[1..50]of real;  

i,n: byte;

sn: real;  

begin 

  write('введите количество элементов массива: '); readln(n);

for i: =1 to n do

begin

write('a[',i,']= '); readln(a[i]);

end;

clrscr;  

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

/* вывод в строчку через запятую*/

for i: =1 to n-1 do write(a[i]: 5: 3,', '); write(a[n]: 5: 3,'.');

/*простой вывод в столбик*/

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

/*сумма элементов, стоящих на четных местах*/ 

sn: =0;

while i< =n do

begin

  if odd(i)=false then sn: =sn+a[i];

  i: =i+1;

end;  

/*вывод ответа*/

writeln('сумма элементов, стоящих на четных местах: ',sn: 5: 3);

end. 

2)

var

a: array[1..50]of real;

i: byte;  

begin

  write('введите количество элементов массива: '); readln(n);

for i: =1 to n do

begin

write('a[',i,']= '); readln(a[i]);

end;

clrscr;  

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

/* вывод в строчку через запятую*/

for i: =1 to n-1 do write(a[i]: 5: 3,', '); write(a[n]: 5: 3,'.');

/*количество элементов кратных 3*/

kol: =0;  

for i: =1 to n do

if a[i] mod 3 =0 then kol: =kol+1;  

/*вывод ответа*/

writeln('количество элементов массива, кратных трем: ',kol);

end.