1. числа a, b, c из интервала (0, 4) удовлетворяют равенствам: cos a = а.
sin cos b = b, cos sin c = с. расположите эти числа в порядке возрастания.
ность
2. диагонали выпуклого четырехугольника abcd, bписанного в окружн
с центром в 0, взаимно перпендикулярны. докажите, что ломаная аос ледит
четырехугольник на две части равной площади.​

var

  a,b,c,x,y:real;

begin

  Write('Введите a и b: '); Read(a,b);

  repeat

    Write('Введите c, не равное нулю: ');

    Read(c)

  until c<>0;

  x:=2*sqr(a)-b/(3*c);

  {

  Если Вы относитесь к людям, ненавидящим скобки

  и тех, кто решает Ваши задания, то в Вашем условии

  на 3а делится все выражение, и тогда предыдущая строка

  должна иметь вид x:=(2*sqr(a)-b)/(3*a);

  }

  if x>=0 then

  begin y:=sqrt(x+sqr(c))+4*a*b; Writeln('x=',x,', y=',y) end

  else

    Writeln('x=',x,', y вычислить нельзя, под корнем отрицательное значение')

end.

Тестовое решение:

Введите a и b: 3.4 -2.18

Введите c, не равное нулю: 0

Введите c, не равное нулю: 5.172

x=23.2605001288992, y=-22.5762191684909

var

  a,b,c,x,y:real;

begin

  Write('Введите a и b: '); Read(a,b);

  repeat

    Write('Введите c, не равное нулю: ');

    Read(c)

  until c<>0;

  x:=2*sqr(a)-b/(3*c);

  {

  Если Вы относитесь к людям, ненавидящим скобки

  и тех, кто решает Ваши задания, то в Вашем условии

  на 3а делится все выражение, и тогда предыдущая строка

  должна иметь вид x:=(2*sqr(a)-b)/(3*a);

  }

  if x>=0 then

  begin y:=sqrt(x+sqr(c))+4*a*b; Writeln('x=',x,', y=',y) end

  else

    Writeln('x=',x,', y вычислить нельзя, под корнем отрицательное значение')

end.

Тестовое решение:

Введите a и b: 3.4 -2.18

Введите c, не равное нулю: 0

Введите c, не равное нулю: 5.172

x=23.2605001288992, y=-22.5762191684909