Помогите пожалуйста с pascal abc

Question

Помогите пожалуйста с pascal abc

Артём Самойлов Ученик (97), на голосовании 1 год назад

Answer 1

Геометрия какая-то, не извини, парень, не понимаю я в этом

Answer 2

 var 
  c,f,z,x : real; 
begin 
  x:= -3.7; 
  z:= -0.57; 
  c:= 2*((sin(3.14+z))**2); 
  f:= sqrt(abs(x-1)) + (c * log(abs(x))); 
  writeln('c = ',c); 
  write('f = ',f) 
end.