Question

Срочно напишите программу!

Answer 1

program function;
var x, z, y: real;
begin
writeln ('Введите x') ;
readln (x) ;
z:=(-5)*sqrt(x+sqrt(y));
writeln ('Значение функции равно z'=z);
end.

Answer 2

var x, y, z: real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
z := -5 * sqrt(x+sqrt(y));
writeln('z = ', z);
end.