Помогите!!! Постройте в программе Паскаль!!! С помощью Алгоритма ВЕТВЛЕНИЯ!!!! Пример(неправильно): Program Z1; Var x,y:real; begin Write('Введите значение x,y'); Read(x,y); IF (x меньше 1) THEN y:=sqr(x)else y:=5*x; Write('Бол...

Помогите!!! Постройте в программе Паскаль!!! С помощью Алгоритма ВЕТВЛЕНИЯ!!!! Пример(неправильно): Program Z1; Var x,y:real; begin Write('Введите значение x,y'); Read(x,y); IF (x<1) THEN y:=sqr(x)else y:=5*x; Write('Больше или равно') Write('Меньше'); End.
Гость
Ответ(ы) на вопрос:
Гость
Var x,y:real; begin Write('Введите значение x'); Read(x); IF (x<1) THEN y:=sqr(x)else y:=5*x; Write(y); End.
Гость
Program Z1; Var x,y:real; begin Write('Введите значение x = '); Readln(x); if x>=1 then y:=5*x else y:=sqr(x); Write('y=',y); End. Пример: Введите значение x = 3 y=15
Не нашли ответ?
Ответить на вопрос
Похожие вопросы