var x,y,z:real;
begin
write ('x=');readln(x);
write ('y=');readln(y);
z:=abs(x)-abs(y)/1+abs(x*y);
writeln('z=',z);
end.
какую подпрограммы-процедуру можно сделать?
begin
write ('x=');readln(x);
write ('y=');readln(y);
z:=abs(x)-abs(y)/1+abs(x*y);
writeln('z=',z);
end.
какую подпрограммы-процедуру можно сделать?
More Questions From This User See All
Answers & Comments
Verified answer
Подпрограммуprocedure rez(x,y:real):real;
begin
... rez=xxxxxx'
end;
redln(y);
z:=rez(x,y);
writeln(z);
.....