Если используете PascalABC.NET, уберите следующую строку:
uses Math;Задание 1uses Math;var x, y: real; begin Write('Введите x: '); Readln(x); if (x < 6) then y := Power(x, 4.0) else y := 5 * x; Writeln('y = ', y);end.Задание 2uses Math;var x, y: real; begin Write('Введите x: '); Readln(x); if (x < 2) then y := Sqrt(Sqr(x)) else if (x > 2) and (x < 10) then y := Abs(10 * x) else if (x > 10) then y := Sqr(Sin(2 * x)); Writeln('y = ', y);end.
Если используете PascalABC.NET, уберите следующую строку:
uses Math;Задание 1uses Math;var x, y: real; begin Write('Введите x: '); Readln(x); if (x < 6) then y := Power(x, 4.0) else y := 5 * x; Writeln('y = ', y);end.Задание 2uses Math;var x, y: real; begin Write('Введите x: '); Readln(x); if (x < 2) then y := Sqrt(Sqr(x)) else if (x > 2) and (x < 10) then y := Abs(10 * x) else if (x > 10) then y := Sqr(Sin(2 * x)); Writeln('y = ', y);end.