Составить программу, вычисляющую значение выражения в паскаль y=

Question

Составить программу, вычисляющую значение выражения в паскаль y=

Answer 1

Ответ:

program z1;

var x,a:real;

begin

write ('x = ');

readln (x);

write ('a = ');

readln (a);

writeln('y = ',sqrt((x*x+1)/(5*a)))

end.