Question

y=a^2=5x-8/4x-8=(6x/2) паскаль

Answer 1

var y,a,x:real;
begin;
readln(x);
readln(a);
if x=0 then exit;
y:=sqr(a)+5*x-8/(4*x)-8+(6*x/2);
writeln(y);
end.

Answer 2

var a,x,y:real;
begin
write('a=');readln(a);
write('X=');readln(X);
y:=a*a+5*x-8/(4*x)-8+(6*x/2);
writeln('y=',y:5:2);
end.

Answer 3

Попробуйте ввести 0 при присваивании x.

Answer 4

ОК. Считается, что условный оператор ещё не проходили и данные должны вводиться правильно. )))