1.в симфонический оркестр приняли на работу трёх музыкантов: брауна, смита и вессона, умеющих играть на скрипке, флейте, альте, кларнете, гобое и трубе. известно, что: - смит самый высокий; - играющий на скрипке меньше ростом играющего на флейте; - играющие на скрипке и флейте и браун любят пиццу; - когда между альтистом и трубачом возникает ссора, смит мирит их; - браун не умеет играть ни на трубе, ни на гобое. на каких инструментах играет каждый из музыкантов, если каждый владеет двумя инструментами? выберите один ответ: a. смит играет на альте и гобое, браун на флейте и кларнете, вессон на скрипке и трубе. b. браун играет на альте и кларнете, вессон на скрипке и гобое, смит на флейте и трубе. c. браун играет на альте и кларнете, смит на флейте и гобое, вессон на скрипке и трубе.

              скрипка   флейта   альта кларнет габое труба

браун         0             0           1           1           0         0

смит           0             1           0           0           1         0

вессон         1           0             0           0           0         1

 

из последнего условия следует что б. играет скрипке, флейте, альте или кларнете.

из 4ого условия следует что с. не альтеист и не трубач

из 3его условия следует что б. не скрипач и не играющий на флейте

с. не скрипач,иначе это противоречит условию 1му

* обозначается любое кол-во символов, ?-один любой символ

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x,z:real;
  for var i:=0 to 18 do begin
    x:=-3+0.5*i;
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8)
    end;
end.

Результат
-3.0     0.02603404
-2.5     0.05396053
-2.0     0.05396053
-1.5     0.15941934
-1.0     0.15783283
-0.5     0.11009307
 0.0     0.10000000
 0.5     0.16817855
 1.0     0.21459633
 1.5     0.16205869
 2.0     0.16205869
 2.5    -0.47852157
 3.0    -0.48851066
 3.5    -0.38218382
 4.0    -0.18498749
 4.5     0.00385685
 5.0     0.00385685
 5.5     0.30151270
 6.0     0.23243357

№2

begin
  var x,z:real;
  x:=-3;
  while x<=6.01 do begin
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8);
    x+=0.5
    end;
end.

№3

begin
  var x,z:real;
  x:=-3;
  repeat
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8);
    x+=0.5
  until x>6.01
end.

Классный кроссворд на самом деле, все видно