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

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

Задать свой вопрос
2 ответа
//Pascal ABC.NET v3.1 сборка 1172

Var
 x,y:real;
begin
 readln(x);
 if xlt;1 then y:=sqr(x) else y:=5*x;
 writeln(y);
end.

Пример ввода:
3
Пример вывода:
15

Ольга
Благодарю.
Var x,y:real;beginwrite('x='); readln(x);if xgt;=1 then y:=5*x else y:=x*x;writeln('y=',y);end.

Пример:
x=3y=15
Андрюха Мудряк
Пока, к сожалению, не могу вставить разделители строк
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт