Назира
Назира

Помогите, пожалуйста, написать программу в паскале

Условия:
Если х≥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.

Похожие вопросы
Помогите пожалуйста написать программу в паскаль)
помогите пожалуйста написать программу на паскале
Помогите, пожалуйста, написать программу доя Паскаля!
Нужно написать программы в паскале! Помогите пожалуйста!!!
Помогите пожалуйста Не могу написать программу на Паскале
Помогите пожалуйста написать программу в паскале
Пожалуйста! Помогите написать программу на Паскале!
Помогите пожалуйста написать программу в паскаль:
Помогите пожалуйста написать программу на паскале!!
помогите пожалуйста написать программу в паскале)