Question

Напишите программу нахождения значения функции y = f(x). Решение представьте в виде программы на языке Паскаль. Используйте оператор ветвления if then else.

Заранее спасибо (*˘︶˘*).｡.:*♡

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal;
  var y:real;
  if x<5 then y:=1/(x-5)
  else
    if x=5 then y:=45
    else y:=x**3-20;
  Writeln(y)
end.

Пример
12.543
1953.350667007