GAECHKA
Твоя помощница в решении задач

Превратить это в код Pascal

Превратить сие творение препода в код.
0
вопрос задан

Источник


1 ответ
Решение
Не рассмотрен случай x=5

function ctg(x: real): real;
begin
  ctg := cos(x) / sin(x);
end;
 
var
  a, b, x, z: real;
 
begin
  readln(a, b, x);
  if x > 5 then
    z := a * exp(2 * sin(cos(tan(x * x * x))))
  else
  if x 5 then
    z := (a - 2 * b * power((ctg(2 * x)), 1 / 4)) / (-7 * sqrt(x) + 3)
  else
    writeln('x=5!');
  writeln(z);
end.