Var x,y,z: real; begin write ( x= ); readln(x); write - вопрос №6491422 от nikitakirillov3 24.08.2021 16:12

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

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