Назира
Помогите, пожалуйста, написать программу в паскале
Условия:
Если х≥0, то y=2x-1
y=2x+1
Х-вещественные
Формат **,***
Условия:
Если х≥0, то y=2x-1
y=2x+1
Х-вещественные
Формат **,***
if x>=0 then y:=2*x-1 else x:=2*x+1; остальное сделай сам
Var
x,y:real;
Begin
write('Введите x -> ');
readln(x);
if x>=0
then
begin
y:=2*x-1;
end
else
begin
y:=2*x+1;
end;
writeln('x = ',y:6:3);
readln;
end.