Question

написать программу вычисление функции: y=a2+c (дробь) b в корне

Answer 1

Ответ:var

y,x:real;

begin

write ('X = ');readln(x);

if x<0 then writeln ('Y does not exist') else begin

y:=sqrt(x);

writeln ('Y = ',y:0:4);

end;

readln;

end.

Это?