Question

При любых значениях выдает один и тот же ответ , найти ошибку

Answer 1

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 , но тут уже можно будет зрительно сравнивать

Answer 2

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));

n:= sqrt(b+(m/w));

q:=sqrt((3+s)/(8-n));

writeln(q);

end.