Помогите!!! Постройте в программе Паскаль!!! С помощью Алгоритма ВЕТВЛЕНИЯ!!!! Пример(неправильно): 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
Не нашли ответ?
Похожие вопросы