Помогите сделать задачку номер 3 , а , б очень безотлагательно

Помогите сделать задачку номер 3 , а , б очень безотлагательно необходимо

Задать свой вопрос
1 ответ
а)
var
x:Real;
begin
write('x =');
Readln(x);
if (x gt;= 0) then
Writeln('y=', 2*x)
else
Writeln('y=', x/2);
end.


б)
var
x:Real;
begin
write('x =');
Readln(x);
if (x gt; 5) then
Writeln('y=', x + 3)
else
Writeln('y=', x - 3);
end.




, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт