Найдите ошибку плз умоляю паскаль. CONST K = 3.75; VAR a, b, c, x, t, p, s, y, z: real; Beg
Найдите ошибку плз умоляю паскаль. CONST K = 3.75; VAR a, b, c, x, t, p, s, y, z: real; Begin Write('ведите через пробел значения a, b, c, x'); Readln (a, b, c, x); t:=a+b; p:=cx; y:=(ttt-sin(p))/(a-k); z:=ln(p)-exp(1/3ln((t+k)/a); (тут выдает ошибку)s:=y+z; Writeln('s =', s:8:3); Readln; End.
Ошибка в данном коде заключается в отсутствии закрывающей скобки после выражения ln((t+k)/a). Правильный код будет выглядеть так:
CONST K = 3.75; VAR a, b, c, x, t, p, s, y, z: real; Begin Write('Введите через пробел значения a, b, c, x'); Readln (a, b, c, x); t:=a+b; p:=cx; y:=(ttt-sin(p))/(a-k); z:=ln(p)-exp(1/3ln((t+k)/a)); s:=y+z; Writeln('s =', s:8:3); Readln; End.