Program fhg; var x:integer; y:real; begin write('Введите x'); readln(x);...

Question

Program fhg;
var
x:integer;
y:real;
begin
write('Введите x');
readln(x);
y:=(4*sqrt(x-2))/((sqr(sin(2*x)))+In((abs(x-3))/(2.6*x)));
writeln('Ответ',y);
end.
Где ошибка ? Пишет , что Встречено 'In', а ожидалось выражение
Напишите плиз , где ошибка!!
И напишите . как правильно сделать !Напишите!

Comments

In что это такое ( в строчке "In((abs(x-3))/(2.6*x)));"

---

Или напиши компилятор в котором это делаешь , я скачаю и проверю

---

или место ln напиши log((abs(x-3))/(2.6*x)));

Answer 1

Var
x, y:real;
begin
write('Введите x ');
readln(x);
y:=4*sqrt(x-2)/(sqr(sin(2*x))+ln(abs(x-3)/(2.6*x)));
writeln('Ответ ',y);
end.

Пример:
Введите x 2.5
Ответ -1.718976394087695e+00