Помогите!!! Постройте в программке Паскаль!!! С подмогою Метода

Помогите!!! Постройте в программке Паскаль!!! С помощью Метода ВЕТВЛЕНИЯ!!!!


Пример(ошибочно):
Program Z1;
Var x,y:real;
begin
Write('Введите значение x,y');
Read(x,y);
IF (xlt;1) THEN
y:=sqr(x)else
y:=5*x;
Write('Больше или одинаково')
Write('Меньше');
End.

Задать свой вопрос
2 ответа
Program Z1;
Var x,y:real;
begin
Write('Введите значение x = ');
Readln(x);
if xgt;=1 then y:=5*x else y:=sqr(x);
Write('y=',y);
End.

Пример:
Введите значение x = 3
y=15
Var x,y:real;
begin
Write('Введите значение x');
Read(x);
IF (xlt;1) THEN
y:=sqr(x)else
y:=5*x;
Write(y);
End.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт