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

Москвичей женщин 7 из них 4 артистки, мужчин 9, 6 - артисты
иногородних женщин 8, а мужчин 18 из них 5 артисты .

Мне так кажется.

program RadToGrad;

var

 Rd, Gr, G, M, S: Real;

begin

 Write ('Rd = ');

 ReadLn (Rd);

 Gr := Rd * 180 / pi;

 G := Int (Gr);

 M := Int (Frac (Gr) * 60);

 S := Frac (Frac (Gr) * 60);

 Write (Rd:4:2, ' Rad = ', G:3:0, ' гр. ', M:3:0, ' мин ', S:3:1,' сек');

 ReadLn;

end.

program GradToRad;

var

 Rd, Gr, G, M, S: Real;

begin

 Write ('Введите грудусы, минуты, секунды: ');

 ReadLn (G, M, S);

 Gr := G + M / 60 + S / 3600;

 Rd := Gr * Pi / 180;

 Write ('Rad = ', Rd :15 :15);

 ReadLn;

end.

program Protiv;

var

 a, b, c: Integer;

begin

 Write ('Введите три числа: ');

 ReadLn (a, b, c);

 if a = - b then

   WriteLn (a, ' и ', b, ' взаимно противоположные.')

 else if a = - c then

   WriteLn (a, ' и ', c, ' взаимно противоположные.')

 else if b = - c then

   WriteLn (b, ' и ', c, ' взаимно противоположные.')

 else

   WriteLn ('Взаимно противоположных чисел нет.');

 ReadLn;

end.

128₁₀ = 10000000₂

164₁₀ = 10100100₂

177₁₀ = 10110001₂

125₁₀ = 1111101₂

215₁₀ = 11010111₂

247₁₀ = 11110111₂

Объяснение:

128₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 10000000₂

164₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10100100₂

177₁₀ = 1*2⁰ + 0*2¹ + 0*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10110001₂

125₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ = 1111101₂

215₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ = 11010111₂

247₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ + 1*2⁷ = 11110111₂