Написать текст программы ** языке Паскаль. Вычислить значения следующих функций,...

Question

Написать текст программы на языке Паскаль. Вычислить значения следующих функций, используя условный оператор. Задание на фото!

Answer 1

Ответ:

Turbo/Free Pascal:

• var x,y: real;
• begin
• read(x);
• if x
• else y := (54 * x*x*x*x)/(-5 * x*x + 7);
• write(y);
• end.

PascalABC.NET:

• begin
• var f: real->real := x -> x
• f(ReadReal).Print
• end.

Пример рыботы: