Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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