Program Z2;
Var q,s,n,x,y,m,w,a,b,c: real;
Begin
write ('введите число a=');
readln (a);
write ('введите число b=');
readln (b);
write('введите число c=');
readln (c);
x := c+sqrt(a)*sin(sqrt(c));
y := sin(3*b)*cos(3*b);
s := sqrt(a-x/y);
m := ln(1+sin(a));
w := sqrt((b+c)/(a*a-1))+(a/(c*b));//error x2
n := sqrt(b+(m/w));
q := sqrt((3+s)/(8-n));//error x4
writeln(q);
End.
Объяснение:
комментарии - кол-во ошибок(делал для себя) , крч говоря 2 лишних корня и пара скоьок в действии q, и ... вроде бы лишние скобки в w , но тут уже можно будет зрительно сравнивать
