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. какую подпрограммы-процедуру можно сделать?
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.
какую подпрограммы-процедуру можно сделать?
Гость
Ответ(ы) на вопрос:
ГостьПодпрограмму
procedure rez(x,y:real):real;
begin
... rez=xxxxxx'
end;
redln(y);
z:=rez(x,y);
writeln(z);
.....
Не нашли ответ?
Похожие вопросы