ДАЮ 100 БАЛЛОВ Переведите функцию ** язык программирования Написать ** языке программного...

Question

ДАЮ 100 БАЛЛОВ
Переведите функцию на язык программирования
Написать на языке программного выражения

---

Answer 1

Program n1;
var x,l,t,k,m,res: real;
begin
readln(x,l,t,k,m);
res:=sqr((t*t-k*k)/(sqr(sqr(m))-l*sqr(l)))+sqrt(abs((sqrt(x+4))/(12-abs(x))+4));
write(res);
end.

Comments

так выражение sqr((t*t-k*k)/(sqr(sqr(m))-l*sqr(l)))+sqrt(abs((sqrt(x+4))/(12-abs(x))+4)) и есть эта функция