var
x, f : real;
begin
writeln('Введите значение переменной x: ');
readln(x);
if x <= 0 then
f := - x
else if (x > 0) and (x < 2) then
f := x * x
else if x >= 2 then
f := 4;
writeln(f:2:2);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Написать по этому заданию программу в паскале .заранее за
var
x, f : real;
begin
writeln('Введите значение переменной x: ');
readln(x);
if x <= 0 then
f := - x
else if (x > 0) and (x < 2) then
f := x * x
else if x >= 2 then
f := 4;
writeln(f:2:2);
end.