Всалоне небольшого самолета летят 42 пассажира. некоторые из них москвичи, остальные иногородные. среди москвичей 9 мужчин. некоторые из пассажиров артисты, но ни одна из иногородних женщин не является артисткой. всего иногородских мужчин 18. из них 13 - не артисты. среди пассажиров, не являющихся артистами, 16 мужчин и 11 женщин. 6 москвичей не артисты. разберитесь, , с пассажирами: кто есть кто? 20 !

Иногородних мужчин артистов 5 и не артистов 13,москвичей мужчин артистов 3 и не артистов 6.иногородних женщин артистов нету а не артистов 8.московских женщин артистов 7 а не артистов нету

Var   mas: array[1..9] of integer;   max, min, i, j, k, n: integer; begin   writeln('массив до перестановки');   for i : = 1 to 9 do   begin       mas[i] : = random(11) - random(11);       write(mas[i], ' ');   end;   writeln;   max : = mas[1];   min : = mas[1];   k : = 1;   j : = 1;   for i : = 1 to 9 do   begin       if mas[i] > max then       begin           max : = mas[i];           j : = i;       end;       if mas[i] < min then         begin           min : = mas[i];           k : = i;       end;   end;   n : = mas[j];   mas[j] : = min;   mas[k] : = n;   writeln('масств после перестановки');   for i : = 1 to 9 do       write(mas[i], ' '); end.

Uses crt; var a,b,c,mn,mx,sr,p,s: real; begin clrscr; writeln('введите 3 числа: '); readln(a,b,c); if(a< =abs(b-c))or(a> =b+c)then write('это не треугольник! ') else   begin       mn: =a;     if b< mn then mn: =b;     if c< mn then mn: =c;   mx: =a;     if b> mx then mx: =b;     if c> mx then mx: =c;   sr: =a+b+c-mn-mx;     if(a=b)and(b=c) then writeln('это равносторонний треугольник')     else if((a=b)and(b< > c))or((a=c)and(b< > c))or((b=c)and(a< > b))then     writeln('это равнобедренный треугольник')     else writeln('это разноcторонний треугольник');   p: =(a+b+c)/2;       s: =sqrt(p*(p-a)*(p-b)*(p-c));     writeln('его площадь=',s: 0: 2);     write('стороны в порядке убывания: ',mx: 0: 2,' ',sr: 0: 2,' ',mn: 0: 2);   end; readln end.