Var x,y,z: real; begin write ( x= ); readln(x); - вопрос №6491254 от EvaMr 10.04.2022 00:14

Question

Информатика: 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. какую подпрограммы-процедуру можно сделать?

EvaMr · Answer

Подпрограмму procedure rez(x,y:real):real;begin... rez= end;redln(y);z:=rez(x,y);writeln(z);...

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. какую подпрограммы-процедуру можно сделать?