Var x,y,z: real; begin write ( x= ); readln(x); write - вопрос №6490854 от N1ke1N1kev1ch 19.11.2020 22:32

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

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